zmiana w COMMONIE

diff --git a/source/wham/src-M/include_unres/COMMON.WEIGHTS b/source/wham/src-M/include_unres/COMMON.WEIGHTS
index d7e6e23..86f8d7a 100644 (file)
--- a/source/wham/src-M/include_unres/COMMON.WEIGHTS
+++ b/source/wham/src-M/include_unres/COMMON.WEIGHTS
@@ -10,13 +10,13 @@
      &  epp_low(2,2),epp_up(2,2),rpp_low(2,2),rpp_up(2,2),
      &  elpp6_low(2,2),elpp6_up(2,2),elpp3_low(2,2),elpp3_up(2,2),
      &  b_low(13,3),b_up(13,3),x_up(max_paropt),x_low(max_paropt),
-     &  epscp_low(0:20,2),epscp_up(0:20,2),rscp_low(0:20,2),
-     &  rscp_up(0:20,2),epss_low(ntyp),epss_up(ntyp),epsp_low(nntyp),
+     &  epscp_low(0:ntyp,2),epscp_up(0:ntyp,2),rscp_low(0:ntyp,2),
+     &  rscp_up(0:ntyp,2),epss_low(ntyp),epss_up(ntyp),epsp_low(nntyp),
      &  epsp_up(nntyp),
      &  xm(max_paropt,0:maxprot),xm1(max_paropt,0:maxprot),
      &  xm2(max_paropt,0:maxprot),
      &  imask(max_ene),nsingle_sc,npair_sc,ityp_ssc(ntyp),
      &  ityp_psc(2,nntyp),mask_elec(2,2,4),
      &  mask_fourier(13,3),
-     &  mask_scp(0:20,2,2),mod_other_params,mod_fourier(0:3),
+     &  mask_scp(0:ntyp,2,2),mod_other_params,mod_fourier(0:3),
      &  mod_elec,mod_scp,mod_side,indz(maxbatch+1,maxprot),iw(max_ene)