Debug part 8

[unres.git] / source / wham / src / COMMON.ALLPARM

diff --git a/source/wham/src/COMMON.ALLPARM b/source/wham/src/COMMON.ALLPARM
index 3cf2c2f..6535a31 100644 (file)
--- a/source/wham/src/COMMON.ALLPARM
+++ b/source/wham/src/COMMON.ALLPARM
@@ -9,20 +9,20 @@
      & 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),
+     & aa0thet_all(maxthetyp1,maxthetyp1,maxthetyp1,2,max_parm),
+     & aathet_all(maxtheterm,maxthetyp1,maxthetyp1,maxthetyp1,2,max_parm),
      & bbthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
+     & maxthetyp1,2,max_parm),
      & ccthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
+     & maxthetyp1,2,max_parm),
      & ddthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
+     & maxthetyp1,2,max_parm),
      & eethet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
-     & maxthetyp1,max_parm),
+     & maxthetyp1,2,max_parm),
      & ffthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
-     &  maxthetyp1,max_parm),
+     &  maxthetyp1,2,max_parm),
      & ggthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
-     &  maxthetyp1,max_parm),
+     &  maxthetyp1,2,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),