-
template<typename T>
void larscl2(integer *m, integer *n, T *d, T *x, integer *ldx)# LARSCL2 performs reciprocal diagonal scaling on a vector.
Purpose:
LARSCL2 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_sge_diag_scale in the new BLAS standard.
- Parameters:
M – [in]
M is INTEGER
The number of rows of D and X. M >= 0.
N – [in]
N is INTEGER
The number of columns of X. N >= 0.
D – [in]
D is REAL array, length M
Diagonal matrix D, stored as a vector of length M.
X – [inout]
X is REAL array, dimension (LDX,N)
On entry, the vector X to be scaled by D. On exit, the scaled vector.
LDX – [in]
LDX is INTEGER
The leading dimension of the vector X. LDX >= M.