X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=2eb148904b45ac4a09582fa65f94bc43ed3373de;hb=e387a49fb8f791cbc2d9709854fcad057f40181a;hp=719ea653dba75096d076fa4b0b85ecbd8b9768e6;hpb=4ca8f6aee2f8fefe2c2284aeec58aadb1eda3d84;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 719ea65..2eb1489 100644
--- a/source/unres/src_MD/initialize_p.F
+++ b/source/unres/src_MD/initialize_p.F
@@ -195,15 +195,17 @@ c      call memmon_print_usage()
       enddo
       nlob(ntyp1)=0
       dsc(ntyp1)=0.0D0
+      do iblock=1,2
       do i=1,maxtor
 	itortyp(i)=0
 	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
 	itel(i)=0