dlarscl2 - perform reciprocal diagonal scaling on a vector
SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) INTEGER M, N, LDX DOUBLE PRECISION D(*), X(LDX,*) SUBROUTINE DLARSCL2_64 ( M, N, D, X, LDX ) INTEGER*8 M, N, LDX DOUBLE PRECISION D(*), X(LDX,*) F95 INTERFACE SUBROUTINE LARSCL2 ( M, N, D, X, LDX ) INTEGER :: M, N, LDX REAL(8), DIMENSION(:,:) :: X REAL(8), DIMENSION(:) :: D SUBROUTINE LARSCL2_64 ( M, N, D, X, LDX ) INTEGER(8) :: M, N, LDX REAL(8), DIMENSION(:,:) :: X REAL(8), DIMENSION(:) :: D C INTERFACE #include <sunperf.h> void dlarscl2 (int m, int n, double *d, double *x, int ldx); void dlarscl2_64 (long m, long n, double *d, double *x, long ldx);
Oracle Solaris Studio Performance Library dlarscl2(3P) NAME dlarscl2 - perform reciprocal diagonal scaling on a vector SYNOPSIS SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) INTEGER M, N, LDX DOUBLE PRECISION D(*), X(LDX,*) SUBROUTINE DLARSCL2_64 ( M, N, D, X, LDX ) INTEGER*8 M, N, LDX DOUBLE PRECISION D(*), X(LDX,*) F95 INTERFACE SUBROUTINE LARSCL2 ( M, N, D, X, LDX ) INTEGER :: M, N, LDX REAL(8), DIMENSION(:,:) :: X REAL(8), DIMENSION(:) :: D SUBROUTINE LARSCL2_64 ( M, N, D, X, LDX ) INTEGER(8) :: M, N, LDX REAL(8), DIMENSION(:,:) :: X REAL(8), DIMENSION(:) :: D C INTERFACE #include <sunperf.h> void dlarscl2 (int m, int n, double *d, double *x, int ldx); void dlarscl2_64 (long m, long n, double *d, double *x, long ldx); PURPOSE dlarscl2 performs a reciprocal diagonal scaling on an vector: x <-- inv(D) * x where the diagonal matrix D is stored as a vector. Eventually to be replaced by BLAS_dge_diag_scale in the new BLAS stan- dard. ARGUMENTS M (input) M is INTEGER The number of rows of D and X. M >= 0. N (input) N is INTEGER The number of columns of D and X. N >= 0. D (input) D is DOUBLE PRECISION array, dimension (M) Diagonal matrix D, stored as a vector of length M. X (input/output) X is DOUBLE PRECISION array, dimension (LDX,N) On entry, the vector X to be scaled by D. On exit, the scaled vector. LDX (input) LDX is INTEGER The leading dimension of the vector X. LDX >= 0. 7 Nov 2015 dlarscl2(3P)