Provided by: liblapack-doc_3.3.1-1_all

**NAME**

LAPACK-3 - rearranges the rows of the M by N matrix X as specified by the permutation K(1),K(2),...,K(M) of the integers 1,...,M

**SYNOPSIS**

SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) IMPLICIT NONE LOGICAL FORWRD INTEGER LDX, M, N INTEGER K( * ) REAL X( LDX, * )

**PURPOSE**

SLAPMR rearranges the rows of the M by N matrix X as specified by the permutation K(1),K(2),...,K(M) of the integers 1,...,M. If FORWRD = .TRUE., forward permutation: X(K(I),*) is moved X(I,*) for I = 1,2,...,M. If FORWRD = .FALSE., backward permutation: X(I,*) is moved to X(K(I),*) for I = 1,2,...,M.

**ARGUMENTS**

FORWRD (input) LOGICAL = .TRUE., forward permutation = .FALSE., backward permutation M (input) INTEGER The number of rows of the matrix X. M >= 0. N (input) INTEGER The number of columns of the matrix X. N >= 0. X (input/output) REAL array, dimension (LDX,N) On entry, the M by N matrix X. On exit, X contains the permuted matrix X. LDX (input) INTEGER The leading dimension of the array X, LDX >= MAX(1,M). K (input/output) INTEGER array, dimension (M) On entry, K contains the permutation vector. K is used as internal workspace, but reset to its original value on output. LAPACK auxiliary routine (version 3.2) April 2011 SLAPMR(3lapack)