slapmt()

subroutine slapmt	(	logical	forwrd,
		integer	m,
		integer	n,
		real, dimension( ldx, * )	x,
		integer	ldx,
		integer, dimension( * )	k )

SLAPMT performs a forward or backward permutation of the columns of a matrix.

Download SLAPMT + dependencies [TGZ] [ZIP] [TXT]

Purpose:

!>
!> SLAPMT 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.
!> 

Parameters

[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 REAL 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. !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.