1 integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1,
2 & WHAM_COMM, Indstart, Indend, scount, idispl, i2ii, i2ii_MD
3 integer indstart_map,indend_map,idispl_map,scount_map,
4 & indstart_MD,indend_MD,idispl_MD,scount_MD
5 common /MPI_Data/ Nprocs, Master,Master1,Me,Comm1,Me1,Nprocs1,
6 & WHAM_COMM, Indstart(0:MaxProcs,MaxProt),
7 & Indend(0:MaxProcs, MaxProt), idispl(0:MaxProcs, MaxProt),
8 & scount(0:MaxProcs, MaxProt), indstart_map(0:MaxProcs),
9 & indend_map(0:MaxProcs), idispl_map(0:MaxProcs),
10 & scount_map(0:MaxProcs, MaxProt),indstart_MD(0:MaxProcs,MaxProt),
11 & indend_MD(0:MaxProcs,MaxProt),idispl_MD(0:MaxProcs,MaxProt),
12 & scount_MD(0:MaxProcs,MaxProt),i2ii(maxstr,maxprot),
13 & i2ii_MD(maxstr,maxprot)
15 common /ftypes/ MPI_FORCE