1 double precision ww_all(max_ene,max_parm),
2 & vbldp0_all(max_parm),akp_all(max_parm),
3 & vbldsc0_all(maxbondterm,ntyp,max_parm),
4 & aksc_all(maxbondterm,ntyp,max_parm),
5 & abond0_all(maxbondterm,ntyp,max_parm),
6 & a0thet_all(-ntyp:ntyp,max_parm),
7 & athet_all(2,-ntyp:ntyp,-1:1,-1:1,max_parm),
8 & bthet_all(2,-ntyp:ntyp,-1:1,-1:1,max_parm),
9 & polthet_all(0:3,-ntyp:ntyp,max_parm),
10 & gthet_all(3,-ntyp:ntyp,max_parm),theta0_all(-ntyp:ntyp,max_parm),
11 & sig0_all(-ntyp:ntyp,max_parm),sigc0_all(-ntyp:ntyp,max_parm),
12 & aa0thet_all(maxthetyp1,maxthetyp1,maxthetyp1,max_parm),
13 & aathet_all(maxtheterm,maxthetyp1,maxthetyp1,maxthetyp1,max_parm),
14 & bbthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
15 & maxthetyp1,max_parm),
16 & ccthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
17 & maxthetyp1,max_parm),
18 & ddthet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
19 & maxthetyp1,max_parm),
20 & eethet_all(maxsingle,maxtheterm2,maxthetyp1,maxthetyp1,
21 & maxthetyp1,max_parm),
22 & ffthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
23 & maxthetyp1,max_parm),
24 & ggthet_all(maxdouble,maxdouble,maxtheterm3,maxthetyp1,maxthetyp1,
25 & maxthetyp1,max_parm),
26 & dsc_all(ntyp1,max_parm),bsc_all(maxlob,ntyp,max_parm),
27 & censc_all(3,maxlob,-ntyp:ntyp,max_parm),
28 & gaussc_all(3,3,maxlob,-ntyp:ntyp,max_parm),
29 & dsc0_all(ntyp1,max_parm),
30 & sc_parmin_all(65,ntyp,max_parm),
31 & v0_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
32 & v1_all(maxterm,-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
33 & v2_all(maxterm,-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
34 & vlor1_all(maxlor,maxtor,maxtor,max_parm),
35 & vlor2_all(maxlor,maxtor,maxtor,max_parm),
36 & vlor3_all(maxlor,maxtor,maxtor,max_parm),
37 & v1c_all(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,
38 & -maxtor:maxtor,2,max_parm),
39 & v1s_all(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,
40 & -maxtor:maxtor,2,max_parm),
41 & v2c_all(maxtermd_2,maxtermd_2,-maxtor:maxtor,
42 & -maxtor:maxtor,-maxtor:maxtor,2,max_parm),
43 & v2s_all(maxtermd_2,maxtermd_2,-maxtor:maxtor,-maxtor:maxtor,
44 & -maxtor:maxtor,2,max_parm),
45 & b1_all(2,-maxtor:maxtor,max_parm),
46 & b2_all(2,-maxtor:maxtor,max_parm),
47 & cc_all(2,2,-maxtor:maxtor,max_parm),
48 & dd_all(2,2,-maxtor:maxtor,max_parm),
49 & ee_all(2,2,-maxtor:maxtor,max_parm),
50 & ctilde_all(2,2,-maxtor:maxtor,max_parm),
51 & dtilde_all(2,2,-maxtor:maxtor,max_parm),
52 & b1tilde_all(2,-maxtor:maxtor,max_parm),
53 & app_all(2,2,max_parm),bpp_all(2,2,max_parm),
54 & ael6_all(2,2,max_parm),ael3_all(2,2,max_parm),
55 & aad_all(ntyp,2,max_parm),bad_all(ntyp,2,max_parm),
56 & aa_all(ntyp,ntyp,max_parm),bb_all(ntyp,ntyp,max_parm),
57 & augm_all(ntyp,ntyp,max_parm),eps_all(ntyp,ntyp,max_parm),
58 & sigma_all(ntyp,ntyp,max_parm),r0_all(ntyp,ntyp,max_parm),
59 & chi_all(ntyp,ntyp,max_parm),chip_all(ntyp,max_parm),
60 & alp_all(ntyp,max_parm),ebr_all(max_parm),d0cm_all(max_parm),
61 & akcm_all(max_parm),akth_all(max_parm),akct_all(max_parm),
62 & v1ss_all(max_parm),v2ss_all(max_parm),v3ss_all(max_parm),
63 & v1sccor_all(maxterm_sccor,ntyp,ntyp,max_parm),
64 & v2sccor_all(maxterm_sccor,ntyp,ntyp,max_parm)
65 integer nlob_all(ntyp1,max_parm),
66 & nlor_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
67 & nterm_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
68 & ntermd1_all(-maxtor:maxtor,-maxtor:maxtor,
69 & -maxtor:maxtor,2,max_parm),
70 & ntermd2_all(-maxtor:maxtor,-maxtor:maxtor,
71 & -maxtor:maxtor,2,max_parm),
72 & nbondterm_all(ntyp,max_parm),nthetyp_all(max_parm),
73 & ithetyp_all(ntyp1,max_parm),ntheterm_all(max_parm),
74 & ntheterm2_all(max_parm),ntheterm3_all(max_parm),
75 & nsingle_all(max_parm),ndouble_all(max_parm),
76 & nntheterm_all(max_parm),nterm_sccor_all(max_parm)
77 common /allparm/ ww_all,vbldp0_all,akp_all,vbldsc0_all,aksc_all,
78 & abond0_all,aa0thet_all,aathet_all,bbthet_all,ccthet_all,
79 & ddthet_all,eethet_all,ffthet_all,ggthet_all,
80 & a0thet_all,athet_all,bthet_all,polthet_all,gthet_all,theta0_all,
81 & sig0_all,sigc0_all,dsc_all,bsc_all,censc_all,gaussc_all,dsc0_all,
83 & v0_all,v1_all,v2_all,vlor1_all,vlor2_all,vlor3_all,v1c_all,
84 & v1s_all,v2c_all,v2s_all,b1_all,b2_all,cc_all,dd_all,ee_all,
85 & ctilde_all,dtilde_all,b1tilde_all,app_all,bpp_all,ael6_all,
86 & ael3_all,aad_all,bad_all,aa_all,bb_all,augm_all,
87 & eps_all,sigma_all,r0_all,chi_all,chip_all,alp_all,ebr_all,
88 & d0cm_all,akcm_all,akth_all,akct_all,v1ss_all,v2ss_all,v3ss_all,
89 & v1sccor_all,v2sccor_all,nbondterm_all,
90 & nlob_all,nlor_all,nterm_all,ntermd1_all,ntermd2_all,
91 & nthetyp_all,ithetyp_all,ntheterm_all,ntheterm2_all,ntheterm3_all,
92 & nsingle_all,ndouble_all,nntheterm_all,nterm_sccor_all