X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FMD_A-MTS.F;h=e504cbd94384a9f51c534a2d435030bf057f91a8;hb=f9783c27de185ff3e1d6e874a37a1a8c4d3c93a3;hp=fcef69ea00e76ec5639360359e1c6915f5d1d131;hpb=3d04f1babd4ae90f9a0b8f256a2ce0a2c5751f33;p=unres.git 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 --- 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)