X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2FCOMMON.ALLPARM;h=729dab991164dde41d2804dd41d128fed3793607;hb=e805db8c96ed2352ed5a54e67496f6bdc3babfa0;hp=0dbe565aed3fffa0bb625406f3cd4c0649b0f117;hpb=53c8871ebcad36878bc5aa2ba44c9b667dbba190;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,