![]() |
LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
|
subroutine clapmt | ( | logical | FORWRD, |
integer | M, | ||
integer | N, | ||
complex, dimension( ldx, * ) | X, | ||
integer | LDX, | ||
integer, dimension( * ) | K | ||
) |
CLAPMT performs a forward or backward permutation of the columns of a matrix.
Download CLAPMT + dependencies [TGZ] [ZIP] [TXT]
CLAPMT rearranges the columns of the M by N matrix X as specified by the permutation K(1),K(2),...,K(N) of the integers 1,...,N. If FORWRD = .TRUE., forward permutation: X(*,K(J)) is moved X(*,J) for J = 1,2,...,N. If FORWRD = .FALSE., backward permutation: X(*,J) is moved to X(*,K(J)) for J = 1,2,...,N.
[in] | FORWRD | FORWRD is LOGICAL = .TRUE., forward permutation = .FALSE., backward permutation |
[in] | M | M is INTEGER The number of rows of the matrix X. M >= 0. |
[in] | N | N is INTEGER The number of columns of the matrix X. N >= 0. |
[in,out] | X | X is COMPLEX array, dimension (LDX,N) On entry, the M by N matrix X. On exit, X contains the permuted matrix X. |
[in] | LDX | LDX is INTEGER The leading dimension of the array X, LDX >= MAX(1,M). |
[in,out] | K | K is INTEGER array, dimension (N) On entry, K contains the permutation vector. K is used as internal workspace, but reset to its original value on output. |
Definition at line 106 of file clapmt.f.