1 double precision enetb, enetb_orig, e_total, etot_orig, entfac,
2 & enecut, eini,enetb_max, Evar, emin_orig, enecut_min, enecut_max,
3 & e_lowb,t_lowb, enetb_oorig, weirms, e_total_T
4 integer n_ene,nchunk_ene,nchunk_conf,hefac,htfac,hemax_low,
7 common /energies/ enetb(maxstr_proc,max_ene,maxprot),
8 & enetb_orig(maxstr_proc,max_ene,maxprot),
9 & enetb_oorig(maxstr_proc,max_ene,maxprot),
10 & e_total(maxstr,maxprot), etot_orig(maxstr,maxprot),
11 & eini(maxstr,maxprot),entfac(maxstr,maxprot),
12 & e_total_T(maxstr,maxT_lik),
13 & weirms(maxstr,maxT_lik),
14 & enetb_max(max_ene), emin_orig(maxT,maxbatch,maxprot),
15 & enecut(maxprot), enecut_min(maxprot), enecut_max(maxprot),
16 & Evar(maxT,maxbatch,maxprot),e_lowb(maxprot),
17 & t_lowb(maxprot),n_ene, init_ene,
18 & nchunk_ene(maxprot),nchunk_conf(maxprot),
20 & htfac(maxprot),hemax_low(maxprot),