parameter (mpiprocs = 1) dimension mPIL ( MPIPROCS ) , mPIB ( MPIPROCS ) common /commpi/ iNFO , mYID , nPROCS , mPI , mPIL , mPIB parameter (nwork=1000000,iwork=10000) real*8 wK ( NWORK ) integer iWK ( IWORK ) common /comwork/ wK , iWK , limflag