double precision entropy(-max_ene-4:max_ene),nminima(maxsave),
     &        nhist(-max_ene:max_ene)
      logical ent_read,multican
      common /mce/ entropy,emin,emax,nhist,nminima,ent_read,multican,
     & indminn,indmaxx
      integer npool
      double precision xpool,epool,pool_fraction
      common /pool/ xpool(maxvar,max_pool),epool(max_pool),
     & pool_fraction,npool
      integer save_frequency,message_frequency,pool_read_freq,
     & pool_save_freq,print_freq
      common /mce_counters/ save_frequency,message_frequency,
     & pool_read_freq,pool_save_freq,print_freq