`#include "hpl.h"`

`void`

`HPL_plindx1(`

`HPL_T_panel *`

`PANEL`

,
`const int`

`K`

,
`const int *`

`IPID`

,
`int *`

`IPA`

,
`int *`

`LINDXA`

,
`int *`

`LINDXAU`

,
`int *`

`IPLEN`

,
`int *`

`IPMAP`

,
`int *`

`IPMAPM1`

,
`int *`

`PERMU`

,
`int *`

`IWORK`

`);`

PANEL (local input/output) HPL_T_panel * On entry, PANEL points to the data structure containing the panel information.

K (global input) const int On entry, K specifies the number of entries in IPID. K is at least 2*N, and at most 4*N.

IPID (global input) const int * On entry, IPID is an array of length K. The first K entries of that array contain the src and final destination resulting from the application of the interchanges.

IPA (global output) int * On exit, IPA specifies the number of rows that the current process row has that either belong to U or should be swapped with remote rows of A.

LINDXA (global output) int * On entry, LINDXA is an array of dimension 2*N. On exit, this array contains the local indexes of the rows of A I have that should be copied into U.

LINDXAU (global output) int * On exit, LINDXAU is an array of dimension 2*N. On exit, this array contains the local destination information encoded as follows. If LINDXAU(k) >= 0, row LINDXA(k) of A is to be copied in U at position LINDXAU(k). Otherwise, row LINDXA(k) of A should be locally copied into A(-LINDXAU(k),:).

IPLEN (global output) int * On entry, IPLEN is an array of dimension NPROW + 1. On exit, this array is such that IPLEN[i] is the number of rows of A in the processes before process IPMAP[i] after the sort with the convention that IPLEN[nprow] is the total number of rows of the panel. In other words IPLEN[i+1]-IPLEN[i] is the local number of rows of A that should be moved to the process IPMAP[i]. IPLEN is such that the number of rows of the source process row can be computed as IPLEN[1] - IPLEN[0], and the remaining entries of this array are sorted so that the quantities IPLEN[i+1] - IPLEN[i] are logarithmically sorted.

IPMAP (global output) int * On entry, IPMAP is an array of dimension NPROW. On exit, this array contains the logarithmic mapping of the processes. In other words, IPMAP[myrow] is the corresponding sorted process coordinate.

IPMAPM1 (global output) int * On entry, IPMAPM1 is an array of dimension NPROW. On exit, this array contains the inverse of the logarithmic mapping contained in IPMAP: IPMAPM1[ IPMAP[i] ] = i, for all i in [0.. NPROCS)

PERMU (global output) int * On entry, PERMU is an array of dimension JB. On exit, PERMU contains a sequence of permutations, that should be applied in increasing order to permute in place the row panel U.

IWORK (workspace) int * On entry, IWORK is a workarray of dimension 2*JB.