From f80045058fdacca564908e97becb84a7014846aa Mon Sep 17 00:00:00 2001 From: Alex Date: Tue, 21 Jan 2020 12:01:45 -0500 Subject: [PATCH] quick fix to bug to write pycac format --- src/io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io.f90 b/src/io.f90 index 27d81f6..e4535a5 100644 --- a/src/io.f90 +++ b/src/io.f90 @@ -684,7 +684,7 @@ module io (ng_node(i) == ng_node(j))) then !Now check the basis level variables do ibasis =1, basisnum(i) - if(basis_type(ibasis,i) /= basis_type(ibasis,j)) then + if(basis_type(ibasis,lattice_types+i) /= basis_type(ibasis,j)) then cycle old_loop end if end do