source/maxlik/src_FPy.org/COMMON.MPI

   1       integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1,
   2      & ALL_COMM, WHAM_COMM, 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      &  ALL_COMM, WHAM_COMM, Indstart(0:MaxProcs,MaxProt),
   6      &  Indend(0:MaxProcs, MaxProt), idispl(0:MaxProcs, MaxProt),
   7      &  scount(0:MaxProcs, MaxProt), indstart_map(0:MaxProcs),
   8      &  indend_map(0:MaxProcs), idispl_map(0:MaxProcs),
   9      &  scount_map(0:MaxProcs),i2ii(maxstr,maxprot)