SLASCL2(3) performs a diagonal scaling on a vector

SYNOPSIS

SUBROUTINE SLASCL2
( M, N, D, X, LDX )

    
IMPLICIT NONE

    
INTEGER M, N, LDX

    
REAL D( * ), X( LDX, * )

PURPOSE

SLASCL2 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.

ARGUMENTS

N (input) INTEGER
The 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) REAL array, length N
On entry, the vector X to be scaled by D. On exit, the scaled vector.