Adasko's dir

[unres.git] / source / cluster / wham / src-NEWSC / COMMON.MPI

diff --git a/source/cluster/wham/src-NEWSC/COMMON.MPI b/source/cluster/wham/src-NEWSC/COMMON.MPI
new file mode 100644 (file)
index 0000000..d2e7c00
--- /dev/null
+++ b/source/cluster/wham/src-NEWSC/COMMON.MPI
@@ -0,0 +1,8 @@
+      integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1, 
+     & Indstart, Indend, scount, idispl, i2ii
+      integer indstart_map,indend_map,idispl_map,scount_map
+      common /MPI_Data/ Nprocs, Master,Master1,Me,Comm1,Me1,Nprocs1,
+     &  Indstart(0:MaxProcs),Indend(0:MaxProcs), idispl(0:MaxProcs),
+     &  scount(0:MaxProcs), indstart_map(0:MaxProcs),
+     &  indend_map(0:MaxProcs), idispl_map(0:MaxProcs), 
+     &  scount_map(0:MaxProcs)