double precision ww,ww0,ww_low,ww_up,ww_orig,x_orig,
     &  epp_low,epp_up,rpp_low,rpp_up,elpp6_low,elpp6_up,elpp3_low,
     &  elpp3_up,b_low,b_up,epscp_low,epscp_up,rscp_low,rscp_up,
     &  x_up,x_low,xm,xm1,xm2,epss_low,epss_up,epsp_low,epsp_up
      integer imask,mask_elec,mask_fourier,mod_fourier,mask_scp,indz,iw,
     &  nsingle_sc,npair_sc,ityp_ssc,ityp_psc
      logical mod_other_params,mod_elec,mod_scp,mod_side
      common /chujec/ ww(max_ene),ww0(max_ene),ww_low(max_ene),
     &  ww_up(max_ene),ww_orig(max_ene),x_orig(max_paropt),
     &  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),
     &  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),
     &  mod_elec,mod_scp,mod_side,indz(maxbatch+1,maxprot),iw(max_ene)