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 & enbend(maxang_var,maxstr_proc,maxprot),
31 & entor_mix_fprimtot(maxtor_var,maxT,maxprot),
32 & entor_mix_ftot(maxtor_var,maxT,maxprot),
33 & entor_mix_fbistot(maxtor_var,maxT,maxprot),
34 & entor_mixsq_ftot(maxtor_var,maxT,maxprot),
35 & entorave_ftot(maxtor_var,maxT,maxprot),
36 & entorave_nat_ftot(maxtor_var,maxT,maxnatlike,maxprot),
37 & entorave_fprimtot(maxtor_var,maxT,maxprot),
38 & entorave_fbistot(maxtor_var,maxT,maxprot),
39 & entorlowest_f(maxtor_var,maxT,maxprot),
40 & nutorave_f(maxtor_var,maxdimnat,maxT,maxnatlike,maxprot),
41 & enang(maxang_var,maxstr_proc,maxprot),
42 & enang_mix_ftot(maxang_var,maxT,maxprot),
43 & enang_mixsq_ftot(maxang_var,maxT,maxprot),
44 & enangave_ftot(maxtor_var,maxT,maxprot),
45 & enangave_nat_ftot(maxtor_var,maxT,maxnatlike,maxprot),
46 & enanglowest_f(maxtor_var,maxT,maxprot),
47 & nuepsave_f(nntyp,maxdimnat,maxT,maxnatlike,maxprot),
48 & nuangave_f(maxtor_var,maxdimnat,maxT,maxnatlike,maxprot),
49 & rder(max_paropt,maxdimnat),
50 & reps(nntyp,maxdimnat),rtor(maxtor_var,maxdimnat),
51 & rang(maxtor_var,maxdimnat),
52 & nuave(maxdimnat,maxT,maxnatlike,maxprot),
53 & nu_pf(max_ene,maxdimnat,maxT,maxnatlike,maxprot),
54 & zvtot(maxT,maxprot),
56 & zvdertot(max_paropt,maxT,maxprot),
57 & zvepstot(nntyp,maxT,maxprot),
58 & zvtortot(maxtor_var,maxT,maxprot),
59 & zvangtot(maxang_var,maxT,maxprot),
60 & sumlik(maxT,maxprot),
61 & sumlikder(max_paropt,maxT,maxprot),
62 & sumlikeps(nntyp,maxT,maxprot),
63 & sumliktor(maxtor_var,maxT,maxprot),
64 & sumlikang(maxang_var,maxT,maxprot),
65 & sumqder(max_paropt,maxT,maxprot),
66 & sumqeps(nntyp,maxT,maxprot),
67 & sumqtor(maxtor_var,maxT,maxprot),
68 & sumqang(maxang_var,maxT,maxprot)
69 integer ind_lowest(maxT,maxnatlike+2,maxprot)
70 common /weightder/ eneps,eneps_temp,etor_temp,ebend_temp_kcc,
71 & etor_temp_kcc,enepsave_ftot,eneps_mix_ftot,eneps_mix_fbistot,
72 & eneps_mixsq_ftot,enang,
73 & entorave_ftot,entorave_fprimtot,entorave_fbistot,
74 & entor_mix_ftot,entor_mix_fprimtot,entor_mix_fbistot,
76 & entor,enbend,enangave_ftot,enang_mix_ftot,enang_mixsq_ftot,
77 & efree,efree0,elowest,elowest_ent,
78 & emean_ftot,ebis_ftot,
79 & eave_pftot,eave_pfprimtot,
80 & eave_pfbistot,emix_pftot,
81 & emix_pfprimtot,emix_pfbistot,
82 & esquare_ftot,emixsq_pftot,nuave,
86 & rder,reps,zvtot,heatbase,zvdertot,zvepstot,
87 & rtor,rang,zvtortot,zvangtot,
88 & sumqder,sumqeps,sumqtor,sumlik,sumlikder,sumlikeps,sumliktor,
91 & entorlowest_f,ind_lowest