Merge branch 'devel' into AFM

[unres.git] / source / unres / src_MD / initialize_p.F

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 719ea65..2eb1489 100644 (file)
--- 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