X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=18451d6e427292a6d3af6d681bf469c2c621bd8d;hb=b4054889e690bb9994dc79deb014e5acd8611d76;hp=565ccaf0bfef32d8fc44bb2ecb11eda6a3e675bc;hpb=ab3dd5e6cc84585110261c2302778e5e689511f0;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 565ccaf..18451d6 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 k=-1,1
+         do kk=-1,1
+          athet(j,i,k,kk)=0.0D0
+	  bthet(j,i,k,kk)=0.0D0
+         enddo
+         enddo
         enddo
 	do j=0,3
 	  polthet(j,i)=0.0D0