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