1SLARSCL2(1)LAPACK routine (version 3.2) SLARSCL2(1)
2
3
4
6 SLARSCL2 - performs a reciprocal diagonal scaling on an vector
7
9 SUBROUTINE SLARSCL2 ( M, N, D, X, LDX )
10
11 IMPLICIT NONE
12
13 INTEGER M, N, LDX
14
15 REAL D( * ), X( LDX, * )
16
18 SLARSCL2 performs a reciprocal diagonal scaling on an vector:
19 x <-- inv(D) * x
20 where the diagonal matrix D is stored as a vector.
21 Eventually to be replaced by BLAS_sge_diag_scale in the new BLAS stan‐
22 dard.
23
25 N (input) INTEGER
26 The size of the vectors X and D.
27
28 D (input) REAL array, length N
29 Diagonal matrix D, stored as a vector of length N.
30
31 X (input/output) REAL array, length N
32 On entry, the vector X to be scaled by D. On exit, the scaled
33 vector.
34
35
36
37 LAPACK routine (version 3.2) November 2008 SLARSCL2(1)