Working changes to write lammps cac
This commit is contained in:
parent
591762d259
commit
ba28734fd7
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user