updates from src_MD to src_MD-M for unres

[unres.git] / source / unres / src_MD-M / readpdb.F

diff --git a/source/unres/src_MD-M/readpdb.F b/source/unres/src_MD-M/readpdb.F
index a504ff7..de172bd 100644 (file)
--- 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