X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2FCOMMON.ALLPARM;h=a65a246c52d244a3fb5a919c7e734894c099248f;hb=69723c40f28a02de73e470fc8092b6d71601cbde;hp=8461a62e8ba0d70b68b003266f2458ca2af8ef72;hpb=e42171e81eadcb1d10d42d5dd6ea245c248affc2;p=unres.git

diff --git a/source/wham/src-M/COMMON.ALLPARM b/source/wham/src-M/COMMON.ALLPARM
index 8461a62..a65a246 100644
--- a/source/wham/src-M/COMMON.ALLPARM
+++ b/source/wham/src-M/COMMON.ALLPARM
@@ -9,20 +9,33 @@
      & polthet_all(0:3,-ntyp:ntyp,max_parm),
      & gthet_all(3,-ntyp:ntyp,max_parm),theta0_all(-ntyp:ntyp,max_parm),
      & sig0_all(-ntyp:ntyp,max_parm),sigc0_all(-ntyp:ntyp,max_parm),
-     & aa0thet_all(maxthetyp1,maxthetyp1,maxthetyp1,max_parm),
-     & aathet_all(maxtheterm,maxthetyp1,maxthetyp1,maxthetyp1,max_parm),
-     & bbthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
-     & ccthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
-     & ddthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
-     & eethet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
-     & ffthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
-     &  maxthetyp1,max_parm),
-     & ggthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
-     &  maxthetyp1,max_parm),
+     & aa0thet_all(-maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
+     & -maxthetyp1:maxthetyp1,2,max_parm),
+     & aathet_all(maxtheterm,-maxthetyp1:maxthetyp1,
+     & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,2,max_parm),
+     & bbthet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
+     & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,2,max_parm),
+     & ccthet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
+     &-maxthetyp1:maxthetyp1,
+     & -maxthetyp1:maxthetyp1,2,max_parm),
+     & ddthet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
+     & -maxthetyp1:maxthetyp1,
+     & maxthetyp1,2,max_parm),
+     & eethet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
+     & -maxthetyp1:maxthetyp1,
+     & -maxthetyp1:maxthetyp1,2,max_parm),
+     & ffthet_all1(maxdouble,maxdouble,maxtheterm3,
+     & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
+     &  -maxthetyp1:maxthetyp1,max_parm),
+     & ggthet_all1(maxdouble,maxdouble,maxtheterm3,
+     &  -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
+     &  -maxthetyp1:maxthetyp1,max_parm),
+     & ffthet_all2(maxdouble,maxdouble,maxtheterm3,
+     & -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
+     &  -maxthetyp1:maxthetyp1,max_parm),
+     & ggthet_all2(maxdouble,maxdouble,maxtheterm3,
+     &  -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,
+     &  -maxthetyp1:maxthetyp1,max_parm),
      & dsc_all(ntyp1,max_parm),bsc_all(maxlob,ntyp,max_parm),
      & censc_all(3,maxlob,-ntyp:ntyp,max_parm),
      & gaussc_all(3,3,maxlob,-ntyp:ntyp,max_parm),
@@ -77,7 +90,8 @@
      &nterm_sccor_all(-ntyp:ntyp,-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,
+     & ddthet_all,eethet_all,ffthet_all1,ggthet_all1,
+     & ffthet_all2,ggthet_all2,
      & a0thet_all,athet_all,bthet_all,polthet_all,gthet_all,theta0_all,
      & sig0_all,sigc0_all,dsc_all,bsc_all,censc_all,gaussc_all,dsc0_all,
      & sc_parmin_all,