|
|
@ -684,7 +684,7 @@ module io
|
|
|
|
(ng_node(i) == ng_node(j))) then
|
|
|
|
(ng_node(i) == ng_node(j))) then
|
|
|
|
!Now check the basis level variables
|
|
|
|
!Now check the basis level variables
|
|
|
|
do ibasis =1, basisnum(i)
|
|
|
|
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
|
|
|
|
cycle old_loop
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
end do
|
|
|
|
end do
|
|
|
|