X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadpdb.F;h=de172bd53f2aab225fbcb571791f6dbddcc05ff7;hb=3c5e1a8829ff84c0725642015445f4debd4ecc0a;hp=a504ff7f3b444c601595283da162c94a2b8af3b3;hpb=6304fe426dd266ba99503f2cc4a5b9d396511b2f;p=unres.git

diff --git a/source/unres/src_MD-M/readpdb.F b/source/unres/src_MD-M/readpdb.F
index a504ff7..de172bd 100644
--- a/source/unres/src_MD-M/readpdb.F
+++ b/source/unres/src_MD-M/readpdb.F
@@ -1006,6 +1006,7 @@ c       write (iout,*) "spraw lancuchy",(c(j,i),j=1,3)
       endif
       endif
         do j=1,3
+          chomo(j,i,k)=c(j,i)
           cref(j,i,cou)=c(j,i)
           cref(j,i+nres,cou)=c(j,i+nres)
           if (i.le.nres) then