Debug part 9

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

diff --git a/source/wham/src/COMMON.ALLPARM b/source/wham/src/COMMON.ALLPARM
index 3cf2c2f..61b2150 100644 (file)
--- a/source/wham/src/COMMON.ALLPARM
+++ b/source/wham/src/COMMON.ALLPARM
@@ -7,22 +7,24 @@
      & athet_all(2,-ntyp:ntyp,-1:1,-1:1,max_parm),
      & bthet_all(2,-ntyp:ntyp,-1:1,-1:1,max_parm),
      & polthet_all(0:3,-ntyp:ntyp,max_parm),
-     & gthet_all(3,-ntyp:ntyp,max_parm),theta0_all(-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),