LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
dlarscl2.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine dlarscl2 (M, N, D, X, LDX)
 DLARSCL2 performs reciprocal diagonal scaling on a vector.

Function/Subroutine Documentation

subroutine dlarscl2 ( integer  M,
integer  N,
double precision, dimension( * )  D,
double precision, dimension( ldx, * )  X,
integer  LDX 
)

DLARSCL2 performs reciprocal diagonal scaling on a vector.

Download DLARSCL2 + dependencies [TGZ] [ZIP] [TXT]
Purpose:
 DLARSCL2 performs a reciprocal diagonal scaling on an vector:
   x <-- inv(D) * x
 where the diagonal matrix D is stored as a vector.

 Eventually to be replaced by BLAS_dge_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 D and X. N >= 0.
[in]D
          D is DOUBLE PRECISION array, dimension (M)
     Diagonal matrix D, stored as a vector of length M.
[in,out]X
          X is DOUBLE PRECISION array, dimension (LDX,N)
     On entry, the vector X to be scaled by D.
     On exit, the scaled vector.
[in]LDX
          LDX is INTEGER
     The leading dimension of the vector X. LDX >= 0.
Author:
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
September 2012

Definition at line 91 of file dlarscl2.f.