X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2FCOMMON.ALLPARM;h=729dab991164dde41d2804dd41d128fed3793607;hb=1fbb0a6dc3a2548755d070368f017e5b0657f38a;hp=0dbe565aed3fffa0bb625406f3cd4c0649b0f117;hpb=ce029d82f9541e9434d7b016ad442b20526de7a2;p=unres.git

diff --git a/source/wham/src/COMMON.ALLPARM b/source/wham/src/COMMON.ALLPARM
index 0dbe565..729dab9 100644
--- a/source/wham/src/COMMON.ALLPARM
+++ b/source/wham/src/COMMON.ALLPARM
@@ -60,7 +60,7 @@
      & ithetyp_all(ntyp1,max_parm),ntheterm_all(max_parm),
      & ntheterm2_all(max_parm),ntheterm3_all(max_parm),
      & nsingle_all(max_parm),ndouble_all(max_parm),
-     & nntheterm_all(max_parm),nterm_sccor_all(max_parm,ntyp,ntyp)
+     & nntheterm_all(max_parm),nterm_sccor_all(ntyp,ntyp,max_parm)
       common /allparm/ ww_all,vbldp0_all,akp_all,vbldsc0_all,aksc_all,
      & abond0_all,aa0thet_all,aathet_all,bbthet_all,ccthet_all,
      & ddthet_all,eethet_all,ffthet_all,ggthet_all,