integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1, & WHAM_COMM, Indstart, Indend, scount, idispl, i2ii integer indstart_map,indend_map,idispl_map,scount_map 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),i2ii(maxstr,maxprot)