source/cluster/wham/src/COMMON.MPI

   1       integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1,
   2      & Indstart, Indend, scount, idispl, i2ii
   3       integer indstart_map,indend_map,idispl_map,scount_map
   4       common /MPI_Data/ Nprocs, Master,Master1,Me,Comm1,Me1,Nprocs1,
   5      &  Indstart(0:MaxProcs),Indend(0:MaxProcs), idispl(0:MaxProcs),
   6      &  scount(0:MaxProcs), indstart_map(0:MaxProcs),
   7      &  indend_map(0:MaxProcs), idispl_map(0:MaxProcs),
   8      &  scount_map(0:MaxProcs)