--- /dev/null
+ integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1,
+ & Indstart, Indend, scount, idispl, i2ii, WHAM_COMM
+ integer indstart_map,indend_map,idispl_map,scount_map
+ common /MPI_Data/ Nprocs, Master,Master1,Me,Comm1,Me1,Nprocs1,
+ & WHAM_COMM,
+ & Indstart(0:MaxProcs),
+ & Indend(0:MaxProcs), idispl(0:MaxProcs),
+ & scount(0:MaxProcs)