.TH "SRC/clapmt.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME SRC/clapmt.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBclapmt\fP (forwrd, m, n, x, ldx, k)" .br .RI "\fBCLAPMT\fP performs a forward or backward permutation of the columns of a matrix\&. " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine clapmt (logical forwrd, integer m, integer n, complex, dimension( ldx, * ) x, integer ldx, integer, dimension( * ) k)" .PP \fBCLAPMT\fP performs a forward or backward permutation of the columns of a matrix\&. .PP \fBPurpose:\fP .RS 4 .PP .nf 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\&. .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIFORWRD\fP .PP .nf FORWRD is LOGICAL = \&.TRUE\&., forward permutation = \&.FALSE\&., backward permutation .fi .PP .br \fIM\fP .PP .nf M is INTEGER The number of rows of the matrix X\&. M >= 0\&. .fi .PP .br \fIN\fP .PP .nf N is INTEGER The number of columns of the matrix X\&. N >= 0\&. .fi .PP .br \fIX\fP .PP .nf X is COMPLEX array, dimension (LDX,N) On entry, the M by N matrix X\&. On exit, X contains the permuted matrix X\&. .fi .PP .br \fILDX\fP .PP .nf LDX is INTEGER The leading dimension of the array X, LDX >= MAX(1,M)\&. .fi .PP .br \fIK\fP .PP .nf 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\&. .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .PP Definition at line \fB103\fP of file \fBclapmt\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.