X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=03f4099aed15873f97aa98cd184792833bea591a;hb=2613142be7b5226fb002eaceb389e3f26766aa65;hp=62706fba9a6bf6b405ea9f0e6fb5cb10c173d441;hpb=d209eee3dec438628ee9d5a9c990ad9ca9dec1c5;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 62706fb..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