Working writing to lammpsCAC format
This commit is contained in:
parent
033b44dc40
commit
54aa50b605
2 changed files with 146 additions and 17 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue