X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadrtns_CSA.F;h=8172868618480b7d3f201ed33bca18cc5b73c014;hb=43f81831c5104109960d27982cd0a83d700ea48c;hp=ce4c59f25307b98a454799b1417f9357c5b7b82b;hpb=46f3f544d5a60812e2e11e03b619903f2ed052eb;p=unres.git

diff --git a/source/unres/src_MD-M/readrtns_CSA.F b/source/unres/src_MD-M/readrtns_CSA.F
index ce4c59f..8172868 100644
--- a/source/unres/src_MD-M/readrtns_CSA.F
+++ b/source/unres/src_MD-M/readrtns_CSA.F
@@ -2427,10 +2427,11 @@ c-------------------------------------------------------------------------------
       open(irest2,file=rest2name,status='unknown')
       read(irest2,*) totT,EK,potE,totE,t_bath
       totTafm=totT
-      do i=1,2*nres
+      do i=0,2*nres
          read(irest2,'(3e15.5)') (d_t(j,i),j=1,3)
       enddo
-      do i=1,2*nres
+C WARING IN OUTER FIELD CRITICAL CORRECTION TO CHANGE i=0
+      do i=0,2*nres
          read(irest2,'(3e15.5)') (dc(j,i),j=1,3)
       enddo
       if(usampl) then