Merge branch 'devel' of mmka:unres into devel

[unres.git] / source / wham / src-M / store_parm.F

diff --git a/source/wham/src-M/store_parm.F b/source/wham/src-M/store_parm.F
index fa9d1d7..8c44422 100644 (file)
--- a/source/wham/src-M/store_parm.F
+++ b/source/wham/src-M/store_parm.F
@@ -107,16 +107,16 @@ c Store bond angle parameters
             do l=1,ntheterm3
               do m=1,ndouble
                 do mm=1,ndouble
-                if iblock.eq.1 then
+                if (iblock.eq.1) then
                  ffthet_all1(mm,m,l,i,j,k,iparm)=
      &   ffthet(mm,m,l,i,j,k,iblock)
                  ggthet_all1(mm,m,l,i,j,k,iparm)=
-     &ggthet(mm,m,l,i,j,k)
+     &ggthet(mm,m,l,i,j,k,iblock)
                   else
                  ffthet_all2(mm,m,l,i,j,k,iparm)=
      &   ffthet(mm,m,l,i,j,k,iblock)
                  ggthet_all2(mm,m,l,i,j,k,iparm)=
-     &ggthet(mm,m,l,i,j,k)
+     &ggthet(mm,m,l,i,j,k,iblock)
                   endif
                 enddo
               enddo
@@ -378,7 +378,7 @@ c Restore bond angle parameters
             do l=1,ntheterm3
               do m=1,ndouble
                 do mm=1,ndouble
-                if iblock.eq.1 then
+                if (iblock.eq.1) then
                  ffthet(mm,m,l,i,j,k,iblock)=
      &ffthet_all1(mm,m,l,i,j,k,iparm)
                  ggthet(mm,m,l,i,j,k,iblock)=