Merge branch 'lipid' of mmka.chem.univ.gda.pl:unres into lipid

[unres.git] / source / unres / src_MD-M-newcorr / COMMON.MCE

diff --git a/source/unres/src_MD-M-newcorr/COMMON.MCE b/source/unres/src_MD-M-newcorr/COMMON.MCE
new file mode 100644 (file)
index 0000000..2d79184
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/COMMON.MCE
@@ -0,0 +1,13 @@
+      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