slarscl2()

subroutine slarscl2	(	integer	m,
		integer	n,
		real, dimension( * )	d,
		real, dimension( ldx, * )	x,
		integer	ldx )

SLARSCL2 performs reciprocal diagonal scaling on a matrix.

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

Purpose:

!>
!> SLARSCL2 performs a reciprocal diagonal scaling on a matrix:
!>   x <-- inv(D) * x
!> where the diagonal matrix D is stored as a vector.
!>
!> Eventually to be replaced by BLAS_sge_diag_scale in the new BLAS
!> standard.
!> 

Parameters

[in]	M	!> M is INTEGER !> The number of rows of D and X. M >= 0. !>
[in]	N	!> N is INTEGER !> The number of columns of X. N >= 0. !>
[in]	D	!> D is REAL array, length M !> Diagonal matrix D, stored as a vector of length M. !>
[in,out]	X	!> X is REAL array, dimension (LDX,N) !> On entry, the matrix X to be scaled by D. !> On exit, the scaled matrix. !>
[in]	LDX	!> LDX is INTEGER !> The leading dimension of the matrix X. LDX >= M. !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.