Working changes to write lammps cac

5 years ago · ba28734fd7
parent 591762d259
commit ba28734fd7
1 changed files with 2 additions and 2 deletions
--- a/src/mode_create.f90
+++ b/src/mode_create.f90
@ -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