Debug part 5

[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 565ccaf..18451d6 100644 (file)
--- 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