X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2FCOMMON.ALLPARM;h=88b480f15cedaf38e486045abf3058d3b28ae0fb;hb=0bc26432861b8aa8fb7cb98becda4da4f0ae8b48;hp=a65a246c52d244a3fb5a919c7e734894c099248f;hpb=0c311441c65bffd482824c807e444e85e220d9da;p=unres.git

diff --git a/source/wham/src-M/COMMON.ALLPARM b/source/wham/src-M/COMMON.ALLPARM
index a65a246..88b480f 100644
--- a/source/wham/src-M/COMMON.ALLPARM
+++ b/source/wham/src-M/COMMON.ALLPARM
@@ -20,7 +20,7 @@
      & -maxthetyp1:maxthetyp1,2,max_parm),
      & ddthet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
      & -maxthetyp1:maxthetyp1,
-     & maxthetyp1,2,max_parm),
+     & -maxthetyp1:maxthetyp1,2,max_parm),
      & eethet_all(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,
      & -maxthetyp1:maxthetyp1,
      & -maxthetyp1:maxthetyp1,2,max_parm),
@@ -83,7 +83,7 @@
      & 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),