source/maxlik/src-Fmatch_safe/COMMON.WEIGHTS

   1       double precision ww,ww0,ww_low,ww_up,ww_orig,ww_oorig,x_orig,
   2      &  epp_low,epp_up,rpp_low,rpp_up,elpp6_low,elpp6_up,elpp3_low,
   3      &  elpp3_up,b_low,b_up,bnew1_low,bnew1_up,bnew2_low,bnew2_up,
   4      &  ccnew_low,ccnew_up,ddnew_low,ddnew_up,e0new_low,e0new_up,
   5      &  eenew_low,eenew_up,epscp_low,epscp_up,rscp_low,rscp_up,
   6      &  bnew1tor_low,bnew1tor_up,bnew2tor_low,bnew2tor_up,
   7      &  ccnewtor_low,ccnewtor_up,ddnewtor_low,ddnewtor_up,e0newtor_low,
   8      &  e0newtor_up,eenewtor_low,eenewtor_up,e0,wello_PMF,wturn_PMF,
   9      &  wello_PMF_low,wello_PMF_up,wturn_PMF_low,wturn_PMF_up,
  10      &  e0_low,e0_up,
  11      &  x_up,x_low,xm,epss_low,epss_up,epsp_low,epsp_up,escal,
  12      &  escalprim,escalbis,weitor,weitor_low,weitor_up,sigma_low,
  13      &  sigma_up,v1bend_low,v1bend_up,wpmf
  14       integer imask,mask_elec,mask_fourier,mask_bnew1,mask_bnew2,
  15      &  mask_bnewtor1,mask_bnewtor2,
  16      &  mask_ccnew,mask_ddnew,mask_e0new,mask_eenew,mod_fourier,
  17      &  mod_fouriertor,mask_fouriertor,
  18      &  mask_bnew1tor,mask_bnew2tor,mask_ccnewtor,mask_ddnewtor,
  19      &  mask_e0newtor,mask_eenewtor,
  20      &  mask_scp,iw,nsingle_sc,npair_sc,ityp_ssc,ityp_psc,mask_tor,
  21      &  mask_ang,mask_sigma,mask_e0,mask_ello_PMF,mask_turn_PMF,
  22      &  n_weight_PMF
  23       logical mod_other_params,mod_elec,mod_scp,mod_side,mod_sccor,
  24      &  mod_tor,mod_side_other,mod_ang,torsion_pmf,turn_pmf,eello_pmf
  25       common /chujec/ ww(max_ene),ww0(max_ene),ww_low(max_ene),
  26      &  ww_up(max_ene),ww_orig(max_ene),ww_oorig(max_ene),wpmf,
  27      &  weitor(0:ntyp,-ntyp:ntyp,-ntyp:ntyp,2),
  28      &  weitor_low(0:ntyp,-ntyp:ntyp,-ntyp:ntyp,2),
  29      &  weitor_up(0:ntyp,-ntyp:ntyp,-ntyp:ntyp,2),x_orig(max_paropt),
  30      &  epp_low(2,2),epp_up(2,2),rpp_low(2,2),rpp_up(2,2),
  31      &  elpp6_low(2,2),elpp6_up(2,2),elpp3_low(2,2),elpp3_up(2,2),
  32      &  b_low(13,0:ntyp),b_up(13,0:ntyp),
  33      &  bnew1_low(3,2,0:ntyp),bnew1_up(3,2,0:ntyp),
  34      &  bnew2_low(3,2,0:ntyp),bnew2_up(3,2,0:ntyp),
  35      &  ccnew_low(3,2,0:ntyp),ccnew_up(3,2,0:ntyp),
  36      &  ddnew_low(3,2,0:ntyp),ddnew_up(3,2,0:ntyp),
  37      &  e0new_low(3,0:ntyp),e0new_up(3,0:ntyp),
  38      &  eenew_low(2,2,2,0:ntyp),eenew_up(2,2,2,0:ntyp),
  39      &  bnew1tor_low(3,2,0:ntyp),bnew1tor_up(3,2,0:ntyp),
  40      &  bnew2tor_low(3,2,0:ntyp),bnew2tor_up(3,2,0:ntyp),
  41      &  ccnewtor_low(3,2,0:ntyp),ccnewtor_up(3,2,0:ntyp),
  42      &  ddnewtor_low(3,2,0:ntyp),ddnewtor_up(3,2,0:ntyp),
  43      &  e0newtor_low(3,0:ntyp),e0newtor_up(3,0:ntyp),
  44      &  eenewtor_low(2,2,2,0:ntyp),eenewtor_up(2,2,2,0:ntyp),
  45      &  e0(0:ntyp,-ntyp:ntyp),wello_PMF,wturn_PMF,
  46      &  e0_low(0:ntyp,-ntyp:ntyp),e0_up(0:ntyp,-ntyp:ntyp),
  47      &  wello_PMF_low,wello_PMF_up,wturn_PMF_low,wturn_PMF_up,
  48      &  v1bend_low(maxang_kcc,0:ntyp),v1bend_up(maxang_kcc,0:ntyp),
  49      &  x_up(max_paropt),x_low(max_paropt),
  50      &  epscp_low(0:ntyp,2),epscp_up(0:ntyp,2),rscp_low(0:ntyp,2),
  51      &  rscp_up(0:ntyp,2),epss_low(ntyp),epss_up(ntyp),epsp_low(nntyp),
  52      &  epsp_up(nntyp),sigma_low(5,ntyp),sigma_up(5,ntyp),
  53      &  xm(max_paropt),
  54      &  escal(max_ene,maxT,maxbatch,maxprot),
  55      &  escalprim(max_ene,maxT,maxbatch,maxprot),
  56      &  escalbis(max_ene,maxT,maxbatch,maxprot),
  57      &  imask(max_ene),nsingle_sc,npair_sc,ityp_ssc(ntyp),
  58      &  ityp_psc(2,nntyp),mask_elec(2,2,4),
  59      &  mask_tor(0:ntyp,-ntyp:ntyp,-ntyp:ntyp,2),
  60      &  mask_ang(0:ntyp),
  61      &  mask_fourier(13,0:ntyp),mask_bnew1(3,2,0:ntyp),
  62      &  mask_bnew2(3,2,0:ntyp),mask_bnewtor1(3,2,0:ntyp),
  63      &  mask_bnewtor2(3,2,0:ntyp),
  64      &  mask_ccnew(3,2,0:ntyp),mask_ddnew(3,2,0:ntyp),
  65      &  mask_e0new(3,0:ntyp),
  66      &  mask_eenew(2,2,2,0:ntyp),mask_sigma(5,ntyp),
  67      &  mask_fouriertor(13,0:ntyp),mask_bnew1tor(3,2,0:ntyp),
  68      &  mask_bnew2tor(3,2,0:ntyp),
  69      &  mask_ccnewtor(3,2,0:ntyp),mask_ddnewtor(3,2,0:ntyp),
  70      &  mask_e0newtor(3,0:ntyp),
  71      &  mask_eenewtor(2,2,2,0:ntyp),
  72      &  mask_scp(0:ntyp,2,2),mod_other_params,mod_fourier(0:ntyp),
  73      &  mask_e0(0:ntyp,-ntyp:ntyp),mask_ello_PMF,mask_turn_PMF,
  74      &  mod_fouriertor(0:ntyp),
  75      &  mod_elec,mod_scp,mod_side,mod_side_other,mod_sccor,mod_tor,
  76      &  mod_ang,iw(max_ene),torsion_pmf,turn_pmf,eello_pmf,n_weight_PMF