X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=03f4099aed15873f97aa98cd184792833bea591a;hb=778dcfe88af6061a9d1fc7c11f9e6e30bf36b946;hp=8117e2bf0a7a6c03f2e18b6fdf3032a026dabc36;hpb=5ff0a9855c50ea1a2f06aee985b771073f938708;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 8117e2b..03f4099 100644
--- a/source/unres/src_MD/initialize_p.F
+++ b/source/unres/src_MD/initialize_p.F
@@ -164,8 +164,12 @@ c      call memmon_print_usage()
 	rr0(i)=0.0D0
 	a0thet(i)=0.0D0
 	do j=1,2
-	  athet(j,i)=0.0D0
-	  bthet(j,i)=0.0D0
+         do ichir1=-1,1
+          do ichir2=-1,1
+	  athet(j,i,ichir1,ichir2)=0.0D0
+	  bthet(j,i,ichir1,ichir2)=0.0D0
+          enddo
+         enddo
         enddo
 	do j=0,3
 	  polthet(j,i)=0.0D0
@@ -191,15 +195,37 @@ c      call memmon_print_usage()
       enddo
       nlob(ntyp1)=0
       dsc(ntyp1)=0.0D0
-      do i=1,maxtor
+      do i=-maxtor,maxtor
 	itortyp(i)=0
-	do j=1,maxtor
+       do iblock=1,2
+	do j=-maxtor,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 iblock=1,2
+       do i=-maxtor,maxtor
+        do j=-maxtor,maxtor
+         do k=-maxtor,maxtor
+          do l=1,maxtermd_1
+            v1c(1,l,i,j,k,iblock)=0.0D0
+            v1s(1,l,i,j,k,iblock)=0.0D0
+            v1c(2,l,i,j,k,iblock)=0.0D0
+            v1s(2,l,i,j,k,iblock)=0.0D0
+          enddo !l
+          do l=1,maxtermd_2
+           do m=1,maxtermd_2
+            v2c(m,l,i,j,k,iblock)=0.0D0
+            v2s(m,l,i,j,k,iblock)=0.0D0
+           enddo !m
+          enddo !l
+        enddo !k
+       enddo !j
+      enddo !i
+      enddo !iblock
       do i=1,maxres
 	itype(i)=0
 	itel(i)=0