1 double precision efree(maxT,maxdimnat+2,maxprot),
2 & efree0(maxT,maxprot),
3 & elowest(maxT,maxdimnat+2,maxprot),
4 & elowest_ent(maxT,maxdimnat+2,maxprot),
5 & emean_ftot(maxT,maxprot),
6 & ebis_ftot(maxT,maxprot),
7 & eave_pftot(max_ene,maxT,maxprot),
8 & eave_nat_pftot(max_ene,maxnatlike,maxT,maxprot),
9 & eave_pfprim(max_ene,maxT,maxprot),
10 & eave_pfprimtot(max_ene,maxT,maxprot),
11 & eave_pfbistot(max_ene,maxT,maxprot),
12 & esquare_ftot(maxT,maxprot),
13 & emix_pftot(max_ene,maxT,maxprot),
14 & emix_pfprimtot(max_ene,maxT,maxprot),
15 & emix_pfbistot(max_ene,maxT,maxprot),
16 & emixsq_pftot(max_ene,maxT,maxprot),
17 & eneps(3,nntyp,maxstr_proc,maxprot),
18 & eneps_temp(3,nntyp),
19 & etor_temp(0:2*maxterm,0:3,-ntyp+1:ntyp-1,-ntyp+1:ntyp-1,2),
20 & ebend_temp_kcc(maxang_kcc,0:ntyp),
21 & etor_temp_kcc(maxval_kcc,maxval_kcc,0:2*maxterm,
22 & -ntyp+1:ntyp-1,-ntyp+1:ntyp-1),
23 & eneps_mix_ftot(nntyp,maxT,maxprot),
24 & eneps_mix_fbistot(nntyp,maxT,maxprot),
25 & eneps_mixsq_ftot(nntyp,maxT,maxprot),
26 & enepsave_ftot(nntyp,maxT,maxprot),
27 & enepsave_nat_ftot(nntyp,maxT,maxnatlike,maxprot),
28 & enepslowest_f(nntyp,maxT,maxprot),
29 & entor(maxtor_var,maxstr_proc,maxprot),
30 & entor_mix_fprimtot(maxtor_var,maxT,maxprot),
31 & entor_mix_ftot(maxtor_var,maxT,maxprot),
32 & entor_mix_fbistot(maxtor_var,maxT,maxprot),
33 & entor_mixsq_ftot(maxtor_var,maxT,maxprot),
34 & entorave_ftot(maxtor_var,maxT,maxprot),
35 & entorave_nat_ftot(maxtor_var,maxT,maxnatlike,maxprot),
36 & entorave_fprimtot(maxtor_var,maxT,maxprot),
37 & entorave_fbistot(maxtor_var,maxT,maxprot),
38 & entorlowest_f(maxtor_var,maxT,maxprot),
39 & nuepsave_f(nntyp,maxdimnat,maxT,maxnatlike,maxprot),
40 & nutorave_f(maxtor_var,maxdimnat,maxT,maxnatlike,maxprot),
41 & rder(max_paropt,maxdimnat),
42 & reps(nntyp,maxdimnat),rtor(maxtor_var,maxdimnat),
43 & nuave(maxdimnat,maxT,maxnatlike,maxprot),
44 & nu_pf(max_ene,maxdimnat,maxT,maxnatlike,maxprot),
45 & zvtot(maxT,maxprot),
47 & zvdertot(max_paropt,maxT,maxprot),
48 & zvepstot(nntyp,maxT,maxprot),
49 & zvtortot(maxtor_var,maxT,maxprot),
50 & sumlik(maxT,maxprot),
51 & sumlikder(max_paropt,maxT,maxprot),
52 & sumlikeps(nntyp,maxT,maxprot),
53 & sumliktor(maxtor_var,maxT,maxprot),
54 & sumqder(max_paropt,maxT,maxprot),
55 & sumqeps(nntyp,maxT,maxprot),
56 & sumqtor(maxtor_var,maxT,maxprot)
57 integer ind_lowest(maxT,maxnatlike+2,maxprot)
58 common /weightder/ eneps,eneps_temp,etor_temp,ebend_temp_kcc,
59 & etor_temp_kcc,enepsave_ftot,eneps_mix_ftot,eneps_mix_fbistot,
60 & eneps_mixsq_ftot,entor,
61 & entorave_ftot,entorave_fprimtot,entorave_fbistot,
62 & entor_mix_ftot,entor_mix_fprimtot,entor_mix_fbistot,
64 & efree,efree0,elowest,elowest_ent,
65 & emean_ftot,ebis_ftot,
66 & eave_pftot,eave_pfprimtot,
67 & eave_pfbistot,emix_pftot,
68 & emix_pfprimtot,emix_pfbistot,
69 & esquare_ftot,emixsq_pftot,nuave,
72 & rder,reps,zvtot,heatbase,zvdertot,zvepstot,
74 & sumqder,sumqeps,sumqtor,sumlik,sumlikder,sumlikeps,sumliktor,
76 & entorlowest_f,ind_lowest