Working writing to lammpsCAC format

This commit is contained in:
Alex Selimov 2019-11-29 13:36:19 -05:00
parent 033b44dc40
commit 54aa50b605
2 changed files with 146 additions and 17 deletions

View file

@ -432,7 +432,6 @@ module mode_create
end do
!Now figure out how many lattice points could not be contained in elements
print *, count(lat_points)
allocate(r_atom_lat(3,count(lat_points)))
lat_atom_num = 0
do ix = 1, bd_in_array(3)
@ -453,7 +452,6 @@ module mode_create
end do
end do
print *, lat_atom_num
end if
end subroutine build_with_rhomb