dlapmr()

subroutine dlapmr	(	logical	forwrd,
		integer	m,
		integer	n,
		double precision, dimension( ldx, * )	x,
		integer	ldx,
		integer, dimension( * )	k )

DLAPMR rearranges rows of a matrix as specified by a permutation vector.

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

Purpose:

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

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 DOUBLE PRECISION 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 (M) !> 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.