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)