COMMON.MPISET

   1       integer indstart_pmf(0:MaxProcs),indend_pmf(0:MaxProcs),
   2      &  scount_pmf(0:MaxProcs),idispl_pmf(0:MaxProcs)
   3       common /rownia/ indstart_pmf,indend_pmf,scount_pmf,idispl_pmf
   4