Adam's lipid and dfa corrections

[unres.git] / source / unres / src-HCD-5D / readpdb-mult.F

diff --git a/source/unres/src-HCD-5D/readpdb-mult.F b/source/unres/src-HCD-5D/readpdb-mult.F
index 8346c4a..41fe7f6 100644 (file)
--- a/source/unres/src-HCD-5D/readpdb-mult.F
+++ b/source/unres/src-HCD-5D/readpdb-mult.F
@@ -342,6 +342,7 @@ c      write(iout,*)"before int_from_cart nres",nres
         thetaref(i)=theta(i)
         phiref(i)=phi(i)
       enddo
+      dc(:,0)=c(:,1)
       do i=1,nres-1
         do j=1,3
           dc(j,i)=c(j,i+1)-c(j,i)