ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
indxl2g.f
Go to the documentation of this file.
1  INTEGER FUNCTION indxl2g( INDXLOC, NB, IPROC, ISRCPROC, NPROCS )
2 *
3 * -- ScaLAPACK tools routine (version 1.7) --
4 * University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5 * and University of California, Berkeley.
6 * May 1, 1997
7 *
8 * .. Scalar Arguments ..
9  INTEGER indxloc, iproc, isrcproc, nb, nprocs
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * INDXL2G computes the global index of a distributed matrix entry
16 * pointed to by the local index INDXLOC of the process indicated by
17 * IPROC.
18 *
19 * Arguments
20 * =========
21 *
22 * INDXLOC (global input) INTEGER
23 * The local index of the distributed matrix entry.
24 *
25 * NB (global input) INTEGER
26 * Block size, size of the blocks the distributed matrix is
27 * split into.
28 *
29 * IPROC (local input) INTEGER
30 * The coordinate of the process whose local array row or
31 * column is to be determined.
32 *
33 * ISRCPROC (global input) INTEGER
34 * The coordinate of the process that possesses the first
35 * row/column of the distributed matrix.
36 *
37 * NPROCS (global input) INTEGER
38 * The total number processes over which the distributed
39 * matrix is distributed.
40 *
41 * =====================================================================
42 *
43 * .. Intrinsic Functions ..
44  INTRINSIC mod
45 * ..
46 * .. Executable Statements ..
47 *
48  indxl2g = nprocs*nb*((indxloc-1)/nb) + mod(indxloc-1,nb) +
49  $ mod(nprocs+iproc-isrcproc, nprocs)*nb + 1
50 *
51  RETURN
52 *
53 * End of INDXL2G
54 *
55  END
indxl2g
integer function indxl2g(INDXLOC, NB, IPROC, ISRCPROC, NPROCS)
Definition: indxl2g.f:2