X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=8880628a529a88e24f5dc71a82aeb45603076b44;hb=2958e81241cbcb0ccf96891c89c753689ac6f709;hp=8117e2bf0a7a6c03f2e18b6fdf3032a026dabc36;hpb=88ed3524aab7542a31b89909e78f9cd79b8fe99b;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 8117e2b..8880628 100644
--- a/source/unres/src_MD/initialize_p.F
+++ b/source/unres/src_MD/initialize_p.F
@@ -193,12 +193,14 @@ c      call memmon_print_usage()
       dsc(ntyp1)=0.0D0
       do i=1,maxtor
 	itortyp(i)=0
+       do iblock=1,2
 	do j=1,maxtor
 	  do k=1,maxterm
-	    v1(k,j,i)=0.0D0
-	    v2(k,j,i)=0.0D0
+	    v1(k,j,i,iblock)=0.0D0
+	    v2(k,j,i,iblock)=0.0D0
           enddo
         enddo
+        enddo
       enddo
       do i=1,maxres
 	itype(i)=0