integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1, 
     & WHAM_COMM, Indstart, Indend, scount, idispl, i2ii, i2ii_MD
      integer indstart_map,indend_map,idispl_map,scount_map,
     & indstart_MD,indend_MD,idispl_MD,scount_MD
      common /MPI_Data/ Nprocs, Master,Master1,Me,Comm1,Me1,Nprocs1,
     &  WHAM_COMM, Indstart(0:MaxProcs,MaxProt),
     &  Indend(0:MaxProcs, MaxProt), idispl(0:MaxProcs, MaxProt),
     &  scount(0:MaxProcs, MaxProt), indstart_map(0:MaxProcs),
     &  indend_map(0:MaxProcs), idispl_map(0:MaxProcs), 
     &  scount_map(0:MaxProcs, MaxProt),indstart_MD(0:MaxProcs,MaxProt),
     &  indend_MD(0:MaxProcs,MaxProt),idispl_MD(0:MaxProcs,MaxProt),
     &  scount_MD(0:MaxProcs,MaxProt),i2ii(maxstr,maxprot),
     &  i2ii_MD(maxstr,maxprot)
      integer MPI_FORCE
      common /ftypes/ MPI_FORCE