From a0ecc7da90e46c6a0f7c642e2530886e3040faf0 Mon Sep 17 00:00:00 2001 From: Alex Selimov Date: Tue, 30 Jun 2020 11:00:02 -0400 Subject: [PATCH] Fix to problem with read-CAC due to changes in add_atom and add_element methods) --- src/io.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/io.f90 b/src/io.f90 index 79e63d4..0f7623b 100644 --- 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