zlarscl2 (3p)

Name

zlarscl2 - perform reciprocal diagonal scaling on a vector

Synopsis

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


INTEGER M, N, LDX

DOUBLE COMPLEX X(LDX,*)

DOUBLE PRECISION D(*)


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


INTEGER*8 M, N, LDX

DOUBLE COMPLEX X(LDX,*)

DOUBLE PRECISION D(*)


F95 INTERFACE
SUBROUTINE LARSCL2 ( M, N, D, X, LDX )


INTEGER :: M, N, LDX

COMPLEX(8), DIMENSION(:,:) :: X

REAL(8), DIMENSION(:) :: D


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


INTEGER(8) :: M, N, LDX

COMPLEX(8), DIMENSION(:,:) :: X

REAL(8), DIMENSION(:) :: D


C INTERFACE
#include <sunperf.h>

void zlarscl2 (int m, int n, double *d, doublecomplex *x, int ldx);


void  zlarscl2_64  (long  m,  long n, double *d, doublecomplex *x, long
ldx);

Description

Oracle Solaris Studio Performance Library                         zlarscl2(3P)



NAME
       zlarscl2 - perform reciprocal diagonal scaling on a vector


SYNOPSIS
       SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX )


       INTEGER M, N, LDX

       DOUBLE COMPLEX X(LDX,*)

       DOUBLE PRECISION D(*)


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


       INTEGER*8 M, N, LDX

       DOUBLE COMPLEX X(LDX,*)

       DOUBLE PRECISION D(*)


   F95 INTERFACE
       SUBROUTINE LARSCL2 ( M, N, D, X, LDX )


       INTEGER :: M, N, LDX

       COMPLEX(8), DIMENSION(:,:) :: X

       REAL(8), DIMENSION(:) :: D


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


       INTEGER(8) :: M, N, LDX

       COMPLEX(8), DIMENSION(:,:) :: X

       REAL(8), DIMENSION(:) :: D


   C INTERFACE
       #include <sunperf.h>

       void zlarscl2 (int m, int n, double *d, doublecomplex *x, int ldx);


       void  zlarscl2_64  (long  m,  long n, double *d, doublecomplex *x, long
                 ldx);


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  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 COMPLEX*16 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                      zlarscl2(3P)