Adam's lipid and dfa corrections

[unres.git] / source / unres / src-HCD-5D / MD_A-MTS.F

diff --git a/source/unres/src-HCD-5D/MD_A-MTS.F b/source/unres/src-HCD-5D/MD_A-MTS.F
index fcef69e..e504cbd 100644 (file)
--- a/source/unres/src-HCD-5D/MD_A-MTS.F
+++ b/source/unres/src-HCD-5D/MD_A-MTS.F
@@ -1955,6 +1955,7 @@ c 8/22/17 AL Loop to produce a low-energy random conformation
               enddo
               call int_from_cart(.true.,.false.)
               call sc_loc_geom(.false.)
+              dc(:,0)=c(:,1)
               do i=1,nres-1
                 do j=1,3
                   dc(j,i)=c(j,i+1)-c(j,i)