changes in cation parameter

[unres4.git] / source / unres / geometry.F90

diff --git a/source/unres/geometry.F90 b/source/unres/geometry.F90
index 510a8e7..ae86ead 100644 (file)
--- a/source/unres/geometry.F90
+++ b/source/unres/geometry.F90
@@ -4054,8 +4054,11 @@
         do i=1,nres
          if (molnum(i).eq.5) then
           c(1,i)=dmod(c(1,i),boxxsize)
+          if (c(1,i).lt.0) c(1,i)=c(1,i)+boxxsize
           c(2,i)=dmod(c(2,i),boxysize)
+          if (c(2,i).lt.0) c(2,i)=c(2,i)+boxysize
           c(3,i)=dmod(c(3,i),boxzsize)
+          if (c(3,i).lt.0) c(3,i)=c(3,i)+boxzsize
           c(1,i+nres)=dmod(c(1,i+nres),boxxsize)
           c(2,i+nres)=dmod(c(2,i+nres),boxysize)
           c(3,i+nres)=dmod(c(3,i+nres),boxzsize)