Fix to problem with read-CAC due to changes in add_atom and add_element methods)

4 years ago · a0ecc7da90
parent 2fda952d3f
commit a0ecc7da90
1 changed files with 2 additions and 2 deletions
--- a/src/io.f90
+++ b/src/io.f90
@ -1067,11 +1067,11 @@ module io
                call lattice_map(in_basis, in_basis_types, 8, in_lapa, lat_type)

                !Now add the element 
-                call add_element(in_lattice_type, esize, lat_type, sub_box_num, r_in(:,1:max_basisnum,1:max_ng_node))
+                call add_element(0,in_lattice_type, esize, lat_type, sub_box_num, r_in(:,1:max_basisnum,1:max_ng_node))
                
            case('Atom')
                read(11, *) inod, ibasis, in_basis_types(ibasis), r_in(:,1,1)
-                call add_atom(in_basis_types(ibasis), sub_box_num, r_in(:,1,1)) 
+                call add_atom(0,in_basis_types(ibasis), sub_box_num, r_in(:,1,1)) 
            end select
        end do