Provided by: liblapack-doc_3.3.1-1_all

**NAME**

LAPACK-3 - performs a reciprocal diagonal scaling on an vector

**SYNOPSIS**

SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX ) IMPLICIT NONE INTEGER M, N, LDX COMPLEX*16 X( LDX, * ) DOUBLE PRECISION D( * )

**PURPOSE**

ZLARSCL2 performs a reciprocal diagonal scaling on an vector: x <-- inv(D) * x where the DOUBLE PRECISION diagonal matrix D is stored as a vector. Eventually to be replaced by BLAS_zge_diag_scale in the new BLAS standard.

**ARGUMENTS**

M (input) INTEGER The number of rows of D and X. M >= 0. N (input) INTEGER The number of columns of D and X. N >= 0. D (input) DOUBLE PRECISION array, length M Diagonal matrix D, stored as a vector of length M. X (input/output) COMPLEX*16 array, dimension (LDX,N) On entry, the vector X to be scaled by D. On exit, the scaled vector. LDX (input) INTEGER The leading dimension of the vector X. LDX >= 0. LAPACK routine (version 3.2.1) April 2011 ZLARSCL2(3lapack)