From d01d0b0c57504b6c596094b3e0d93c4feb3b0a63 Mon Sep 17 00:00:00 2001 From: Alex Selimov Date: Fri, 29 May 2020 10:02:34 -0400 Subject: [PATCH] Quick fix to code to allow for reading in larger numbers of esizes --- src/io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io.f90 b/src/io.f90 index 5ee7c7d..cd3e3f6 100644 --- a/src/io.f90 +++ b/src/io.f90 @@ -774,7 +774,7 @@ module io real(kind = dp), dimension(6), intent(out) :: temp_box_bd integer :: i, inod, ibasis, j, k, in_eles, in_atoms, ele_types, in_lat_num, in_atom_types, & - atom_type_map(10), etype_map(10), etype, lat_type, new_lattice_map(10), & + atom_type_map(100), etype_map(100), etype, lat_type, new_lattice_map(100), & atom_type real(kind=dp) :: newdisplace(3), r_in(3,1,8), r_in_atom(3), new_displace(3) character(len=100) :: textholder, in_lattype_map(10)