X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Finitialize_p.F;h=4c2381569a418b92feb2f9009be1067089eddf63;hb=c734f7a626db5ffe279e53c9a4a1c92dbb120f46;hp=bc9b5206160de7a73217a5ba74c434b7826cce71;hpb=2ccf273274f6c7a81195fba9c0bc1b686ae05d53;p=unres.git

diff --git a/source/unres/src_CSA_DiL/initialize_p.F b/source/unres/src_CSA_DiL/initialize_p.F
index bc9b520..4c23815 100644
--- a/source/unres/src_CSA_DiL/initialize_p.F
+++ b/source/unres/src_CSA_DiL/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
@@ -196,8 +200,8 @@ c      call memmon_print_usage()
 	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