double precision enetb, enetb_orig, e_total, etot_orig, entfac, 
     &  enecut, eini,enetb_max, Evar, emin_orig, enecut_min, enecut_max,
     &  e_lowb,t_lowb, enetb_oorig, weirms, e_total_T
      integer n_ene,nchunk_ene,nchunk_conf,hefac,htfac,hemax_low,
     &  htmax_low
      logical init_ene
      common /energies/ enetb(maxstr_proc,max_ene,maxprot),
     &  enetb_orig(maxstr_proc,max_ene,maxprot),
     &  enetb_oorig(maxstr_proc,max_ene,maxprot),
     &  e_total(maxstr,maxprot), etot_orig(maxstr,maxprot), 
     &  eini(maxstr,maxprot),entfac(maxstr,maxprot),
     &  e_total_T(maxstr,maxT_lik),
     &  weirms(maxstr,maxT_lik),
     &  enetb_max(max_ene), emin_orig(maxT,maxbatch,maxprot),
     &  enecut(maxprot), enecut_min(maxprot), enecut_max(maxprot),
     &  Evar(maxT,maxbatch,maxprot),e_lowb(maxprot),
     &  t_lowb(maxprot),n_ene, init_ene,
     &  nchunk_ene(maxprot),nchunk_conf(maxprot),
     &  hefac(maxprot),
     &  htfac(maxprot),hemax_low(maxprot),
     &  htmax_low(maxprot)