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