X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fcxread.F;h=15777b1bd91fde55ee58c45af7edd5d6bfadff64;hb=971fdfc78bace0d56dd440cf9501ab2eb25a1dcf;hp=c0319f6f68077484eaeecd2b30c780a0c5ee34c2;hpb=c67de1dba6e593dfb17438f5dd213ec1494a144a;p=unres.git

diff --git a/source/wham/src-M/cxread.F b/source/wham/src-M/cxread.F
index c0319f6..15777b1 100644
--- a/source/wham/src-M/cxread.F
+++ b/source/wham/src-M/cxread.F
@@ -168,6 +168,20 @@ c      call flush(iout)
         enddo
       enddo
 
+c Box shift  
+      call oligomer
+      do i=1,nres
+        do j=1,3
+          xoord(j,i)=c(j,i)
+        enddo
+      enddo  
+      do i=1,nct-nnt+1
+        do j=1,3
+          xoord(j,i+nres)=c(j,i+nres+nnt-1)
+        enddo
+      enddo  
+c end change 
+
       if (islice.gt.0 .and. islice.le.nslice .and. (.not.separate_parset
      &    .or. iset.eq.myparm)) then
         ii=ii+1