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