X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2FCOMMON.ALLPARM;h=7befaa1a671faaa0646b444ec055364cff6dbf65;hb=570baab87a562b1d5cfe02efe6fb3afe7491ecc5;hp=3cf2c2f919ecb2a5e52b3cf8e9e36b0991552a4c;hpb=7675ab8ec26554f2fd3f2e7e427b177254872a45;p=unres.git

diff --git a/source/wham/src/COMMON.ALLPARM b/source/wham/src/COMMON.ALLPARM
index 3cf2c2f..7befaa1 100644
--- a/source/wham/src/COMMON.ALLPARM
+++ b/source/wham/src/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: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),
@@ -61,8 +74,8 @@
      & ss_depth_all(max_parm),ht_all(max_parm),
      & akcm_all(max_parm),akth_all(max_parm),akct_all(max_parm),
      & v1ss_all(max_parm),v2ss_all(max_parm),v3ss_all(max_parm),
-     & v1sccor_all(maxterm_sccor,3,ntyp,ntyp,max_parm),
-     & v2sccor_all(maxterm_sccor,3,ntyp,ntyp,max_parm)
+     & v1sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm),
+     & v2sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm)
       integer nlob_all(ntyp1,max_parm),
      & nlor_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
      & nterm_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
@@ -71,10 +84,11 @@
      & ntermd2_all(-maxtor:maxtor,-maxtor:maxtor,
      & -maxtor:maxtor,2,max_parm),
      & nbondterm_all(ntyp,max_parm),nthetyp_all(max_parm),
-     & ithetyp_all(ntyp1,max_parm),ntheterm_all(max_parm),
+     & ithetyp_all(-ntyp1: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,-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,