source/maxlik/src-Fmatch_safe/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      & 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),
  55      & heatbase(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,
  75      & entor_mixsq_ftot,
  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,
  83      & nu_pf,nuepsave_f,
  84      & nutorave_f,
  85      & nuangave_f,
  86      & rder,reps,zvtot,heatbase,zvdertot,zvepstot,
  87      & rtor,rang,zvtortot,zvangtot,
  88      & sumqder,sumqeps,sumqtor,sumlik,sumlikder,sumlikeps,sumliktor,
  89      & sumqang,sumlikang,
  90      & enepslowest_f,
  91      & entorlowest_f,ind_lowest