source/maxlik/src-Fmatch/COMMON.MPI

   1       integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1,
   2      & WHAM_COMM, Indstart, Indend, scount, idispl, i2ii, i2ii_MD
   3       integer indstart_map,indend_map,idispl_map,scount_map,
   4      & indstart_MD,indend_MD,idispl_MD,scount_MD
   5       common /MPI_Data/ Nprocs, Master,Master1,Me,Comm1,Me1,Nprocs1,
   6      &  WHAM_COMM, Indstart(0:MaxProcs,MaxProt),
   7      &  Indend(0:MaxProcs, MaxProt), idispl(0:MaxProcs, MaxProt),
   8      &  scount(0:MaxProcs, MaxProt), indstart_map(0:MaxProcs),
   9      &  indend_map(0:MaxProcs), idispl_map(0:MaxProcs),
  10      &  scount_map(0:MaxProcs, MaxProt),indstart_MD(0:MaxProcs,MaxProt),
  11      &  indend_MD(0:MaxProcs,MaxProt),idispl_MD(0:MaxProcs,MaxProt),
  12      &  scount_MD(0:MaxProcs,MaxProt),i2ii(maxstr,maxprot),
  13      &  i2ii_MD(maxstr,maxprot)
  14       integer MPI_FORCE
  15       common /ftypes/ MPI_FORCE