INTEGER FUNCTION INDXL2G( INDXLOC, NB, IPROC, ISRCPROC, NPROCS ) * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, * and University of California, Berkeley. * May 1, 1997 * * .. Scalar Arguments .. INTEGER INDXLOC, IPROC, ISRCPROC, NB, NPROCS * .. * * Purpose * ======= * * INDXL2G computes the global index of a distributed matrix entry * pointed to by the local index INDXLOC of the process indicated by * IPROC. * * Arguments * ========= * * INDXLOC (global input) INTEGER * The local index of the distributed matrix entry. * * NB (global input) INTEGER * Block size, size of the blocks the distributed matrix is * split into. * * IPROC (local input) INTEGER * The coordinate of the process whose local array row or * column is to be determined. * * ISRCPROC (global input) INTEGER * The coordinate of the process that possesses the first * row/column of the distributed matrix. * * NPROCS (global input) INTEGER * The total number processes over which the distributed * matrix is distributed. * * ===================================================================== * * .. Intrinsic Functions .. INTRINSIC MOD * .. * .. Executable Statements .. * INDXL2G = NPROCS*NB*((INDXLOC-1)/NB) + MOD(INDXLOC-1,NB) + $ MOD(NPROCS+IPROC-ISRCPROC, NPROCS)*NB + 1 * RETURN * * End of INDXL2G * END