indxl2g.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	indxl2g (indxloc, nb, iproc, isrcproc, nprocs)

Function/Subroutine Documentation

indxl2g()

integer function indxl2g	(	integer	indxloc,
		integer	nb,
		integer	iproc,
		integer	isrcproc,
		integer	nprocs )

Definition at line 1 of file indxl2g.f.

*
*  -- 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
*