--- /dev/null
+ module mcm_data
+!-----------------------------------------------------------------------------
+! Max. number of stored confs. in MC/MCM simulation
+ integer,parameter :: maxsave=20
+!-----------------------------------------------------------------------------
+! common.mce
+! common /mce/
+ real(kind=8) :: emin,emax
+ logical :: ent_read
+! common /pool/
+ real(kind=8) :: pool_fraction
+! common /mce_counters/
+ integer :: save_frequency,message_frequency,pool_read_freq,&
+ pool_save_freq,print_freq
+!-----------------------------------------------------------------------------
+! commom.mcm
+!... Following COMMON block contains general variables controlling the MC/MCM
+!... procedure
+!-----------------------------------------------------------------------------
+! common /mcm/
+ real(kind=8) :: Tcur,Tmin,Tmax,TstepH,TstepC,RanFract,&
+ overlap_cut,e_up,delte,Rbol,betbol
+ integer :: nstepH,nstepC,maxacc,maxgen,maxtrial,maxtrial_iter,&
+ maxrepm,maxoverlap,ntrial,max_mcm_it,ngen,ntherm,nrepm,neneval,&
+ nsave,nsweep,print_mc
+ integer,dimension(:),allocatable :: nsave_part !(max_cg_procs)
+ logical :: print_stat,print_int
+!-----------------------------------------------------------------------------
+!... The meaning of the above variables is as follows:
+!... Tcur,Tmin,Tmax - Current,minimum and maximum temperature, respectively;
+!... NstepC,NStepH - Number of cooling and heating steps, respectively;
+!... TstepH,TstepC - factors by which T is multiplied in order to be
+!... increased or decreased.
+!... betbol - Boltzmann's inverse temperature (1/(Rbol*Tcur));
+!... Rbol - the gas constant;
+!... RanFract - the chance that a new conformation will be random-generated;
+!... maxacc - maximum number of accepted conformations;
+!... maxgen,ngen - Maximum and current number of generated conformations;
+!... maxtrial,ntrial - maximum number of trials before temperature is increased
+!... and current number of trials, respectively;
+!... maxrepm,nrepm - maximum number of allowed minima repetition and current
+!... number of minima repetitions, respectively;
+!... maxoverlap - max. # of overlapping confs generated in a single iteration;
+!... neneval - number of energy evaluations;
+!... nsave - number of confs. in the backup array;
+!... nsweep - the number of macroiterations in generating the distributions.
+!------------------------------------------------------------------------------
+!... Following COMMON block contains variables controlling motion.
+!------------------------------------------------------------------------------
+! common /move/
+ real(kind=8),dimension(:),allocatable :: sumpro_type !(0:MaxMoveType)
+ integer :: nmove
+ integer,dimension(:),allocatable :: moves,moves_acc !(-1:MaxMoveType+1)
+!... maxgen,ngen - Maximum and current number of generated conformations;
+! common /accept_stats/
+ integer :: nacc_tot
+! common /windows/
+ integer :: nwindow
+ integer,dimension(:),allocatable :: winstart,winend,winlen !(maxres)
+! common /moveID/
+ character(len=16),dimension(:),allocatable :: MovTypID !(-1:MaxMoveType+1)
+!-----------------------------------------------------------------------------
+! common.var
+! Store the angles and variables corresponding to old conformations (for use
+! in MCM).
+! common /oldgeo/
+ real(kind=8),dimension(:,:),allocatable :: varsave !(maxvar,maxsave)(maxvar=6*maxres)
+ real(kind=8),dimension(:),allocatable :: esave !(maxsave)
+ integer,dimension(:),allocatable :: Origin !(maxsave)
+ integer :: nstore
+!-----------------------------------------------------------------------------
+!-----------------------------------------------------------------------------
+ end module mcm_data