1 double precision ww,ww0,ww_low,ww_up,ww_orig,x_orig,
2 & epp_low,epp_up,rpp_low,rpp_up,elpp6_low,elpp6_up,elpp3_low,
3 & elpp3_up,b_low,b_up,epscp_low,epscp_up,rscp_low,rscp_up,
4 & x_up,x_low,xm,xm1,xm2,epss_low,epss_up,epsp_low,epsp_up
5 integer imask,mask_elec,mask_fourier,mod_fourier,mask_scp,indz,iw,
6 & nsingle_sc,npair_sc,ityp_ssc,ityp_psc
7 logical mod_other_params,mod_elec,mod_scp,mod_side
8 common /chujec/ ww(max_ene),ww0(max_ene),ww_low(max_ene),
9 & ww_up(max_ene),ww_orig(max_ene),x_orig(max_paropt),
10 & epp_low(2,2),epp_up(2,2),rpp_low(2,2),rpp_up(2,2),
11 & elpp6_low(2,2),elpp6_up(2,2),elpp3_low(2,2),elpp3_up(2,2),
12 & b_low(13,3),b_up(13,3),x_up(max_paropt),x_low(max_paropt),
13 & epscp_low(0:20,2),epscp_up(0:20,2),rscp_low(0:20,2),
14 & rscp_up(0:20,2),epss_low(ntyp),epss_up(ntyp),epsp_low(nntyp),
16 & xm(max_paropt,0:maxprot),xm1(max_paropt,0:maxprot),
17 & xm2(max_paropt,0:maxprot),
18 & imask(max_ene),nsingle_sc,npair_sc,ityp_ssc(ntyp),
19 & ityp_psc(2,nntyp),mask_elec(2,2,4),
21 & mask_scp(0:20,2,2),mod_other_params,mod_fourier(0:3),
22 & mod_elec,mod_scp,mod_side,indz(maxbatch+1,maxprot),iw(max_ene)