X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fstore_parm.F;h=8c44422b9399cf4a51b4c6760ad4f1df487e53aa;hb=29c003540813cc9069004b6a049512ab7a8b411e;hp=fa9d1d79272503b4a461531b7a87fb07fae7403e;hpb=69723c40f28a02de73e470fc8092b6d71601cbde;p=unres.git

diff --git a/source/wham/src-M/store_parm.F b/source/wham/src-M/store_parm.F
index fa9d1d7..8c44422 100644
--- 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)=