aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working changes to write lammps cac

Browse source
This commit is contained in:
Alex Selimov 2020-01-13 16:54:52 -05:00
parent 591762d259
commit ba28734fd7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/mode_create.f90
View file

@ -306,9 +306,9 @@ module mode_create
do inod = 1, 8
do i = 1,3
if(is_equal(cubic_cell(i, inod),0.0_dp)) then
adjustVar(i,inod) = -0.25_dp
adjustVar(i,inod) = -0.5_dp
else
adjustVar(i, inod) = 0.25_dp
adjustVar(i, inod) = 0.5_dp
end if
end do
end do