Working changes to write lammps cac

This commit is contained in:
Alex Selimov 2020-01-13 16:54:52 -05:00
parent 591762d259
commit ba28734fd7

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