source/maxlik/src_FPy.org/COMMON.WEIGHTDER

   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),
  46      & heatbase(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,
  63      & entor_mixsq_ftot,
  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,
  70      & nu_pf,nuepsave_f,
  71      & nutorave_f,
  72      & rder,reps,zvtot,heatbase,zvdertot,zvepstot,
  73      & rtor,zvtortot,
  74      & sumqder,sumqeps,sumqtor,sumlik,sumlikder,sumlikeps,sumliktor,
  75      & enepslowest_f,
  76      & entorlowest_f,ind_lowest