multichain cleaning output

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

diff --git a/source/unres/src_MD/readpdb.F b/source/unres/src_MD/readpdb.F
index 042a20f..eed985e 100644 (file)
--- a/source/unres/src_MD/readpdb.F
+++ b/source/unres/src_MD/readpdb.F
@@ -742,6 +742,7 @@ C Copy the coordinates to reference coordinates
       do i=1,2*nres
         do j=1,3
           cref(j,i)=c(j,i)
+          chomo(j,i,k)=c(j,i)
         enddo
       enddo