Quick fix to code to allow for reading in larger numbers of esizes

4 years ago · d01d0b0c57
parent 65c2b380cd
commit d01d0b0c57
1 changed files with 1 additions and 1 deletions
--- 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)