Added print messages to let user know whats going on

This commit is contained in:
Alex Selimov 2020-01-28 10:42:30 -05:00
parent e91bcd5d1e
commit 9ebdfff0a1
6 changed files with 62 additions and 15 deletions

View file

@ -627,6 +627,7 @@ module io
temp_box_bd(2*i) = temp_box_bd(2*i) + newdisplace(i)
end do
call grow_box(temp_box_bd)
!Read in the number of sub_boxes and allocate the variables
read(11, *) n
@ -707,6 +708,9 @@ module io
call grow_ele_arrays(in_eles, in_atoms)
allocate(r_innode(3,max_basisnum, max_ng_node))
print *, "Read in ", in_eles, " elements and ", in_atoms, " atoms from ", trim(adjustl(file))
print *, "New box dimensions are: ", box_bd
!Read the atoms
do i = 1, in_atoms
read(11,*) j, type, r(:)