dlascl2 - perform diagonal scaling on a vector
SUBROUTINE DLASCL2 ( M, N, D, X, LDX ) INTEGER M, N, LDX DOUBLE PRECISION D(*), X(LDX,*) SUBROUTINE DLASCL2_64 ( M, N, D, X, LDX ) INTEGER*8 M, N, LDX DOUBLE PRECISION D(*), X(LDX,*) F95 INTERFACE SUBROUTINE LASCL2 ( M, N, D, X, LDX ) INTEGER :: M, N, LDX COMPLEX(8), DIMENSION(:,:) :: X REAL(8) :: D SUBROUTINE LASCL2_64 ( M, N, D, X, LDX ) INTEGER(8) :: M, N, LDX COMPLEX(8), DIMENSION(:,:) :: X REAL(8) :: D C INTERFACE #include <sunperf.h> void dlascl2 (int m, int n, double d, doublecomplex *x, int ldx); void dlascl2_64 (long m, long n, double d, doublecomplex *x, long ldx);
Oracle Solaris Studio Performance Library dlascl2(3P)
NAME
dlascl2 - perform diagonal scaling on a vector
SYNOPSIS
SUBROUTINE DLASCL2 ( M, N, D, X, LDX )
INTEGER M, N, LDX
DOUBLE PRECISION D(*), X(LDX,*)
SUBROUTINE DLASCL2_64 ( M, N, D, X, LDX )
INTEGER*8 M, N, LDX
DOUBLE PRECISION D(*), X(LDX,*)
F95 INTERFACE
SUBROUTINE LASCL2 ( M, N, D, X, LDX )
INTEGER :: M, N, LDX
COMPLEX(8), DIMENSION(:,:) :: X
REAL(8) :: D
SUBROUTINE LASCL2_64 ( M, N, D, X, LDX )
INTEGER(8) :: M, N, LDX
COMPLEX(8), DIMENSION(:,:) :: X
REAL(8) :: D
C INTERFACE
#include <sunperf.h>
void dlascl2 (int m, int n, double d, doublecomplex *x, int ldx);
void dlascl2_64 (long m, long n, double d, doublecomplex *x, long ldx);
PURPOSE
dlascl2 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_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, length 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 dlascl2(3P)