aselimov/CACmb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats 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 inod = 1, 8
do i = 1,3 do i = 1,3
if(is_equal(cubic_cell(i, inod),0.0_dp)) then if(is_equal(cubic_cell(i, inod),0.0_dp)) then
adjustVar(i,inod) = -0.25_dp adjustVar(i,inod) = -0.5_dp
else else
adjustVar(i, inod) = 0.25_dp adjustVar(i, inod) = 0.5_dp
end if end if
end do end do
end do end do