- SUBROUTINE CLASCL2
- ( M, N, D, X, LDX )
- IMPLICIT NONE
- INTEGER M, N, LDX
- REAL D( * )
- COMPLEX X( LDX, * )
PURPOSECLASCL2 performs a diagonal scaling on a vector:
x <-- 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.
ARGUMENTSThe size of the vectors X and D.
- D (input) REAL array, length N
Diagonal matrix D, stored as a vector of length N.
X (input/output) COMPLEX array, length N
On entry, the vector X to be scaled by D.
On exit, the scaled vector.