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

[unres.git] / source / unres / src_Eshel / COMMON.THREAD

diff --git a/source/unres/src_Eshel/COMMON.THREAD b/source/unres/src_Eshel/COMMON.THREAD
new file mode 100644 (file)
index 0000000..5c814cc
--- /dev/null
+++ b/source/unres/src_Eshel/COMMON.THREAD
@@ -0,0 +1,7 @@
+      integer nthread,nexcl,iexam,ipatt
+      double precision ener0,ener,max_time_for_thread,
+     &  ave_time_for_thread
+      common /thread/ nthread,nexcl,iexam(2,maxthread),
+     &  ipatt(2,maxthread)
+      common /thread1/ ener0(n_ene+2,maxthread),ener(n_ene+2,maxthread),
+     &  max_time_for_thread,ave_time_for_thread