zdscal - Compute y := alpha * y
SUBROUTINE ZDSCAL(N, ALPHA, Y, INCY) DOUBLE COMPLEX Y(*) INTEGER N, INCY DOUBLE PRECISION ALPHA SUBROUTINE ZDSCAL_64(N, ALPHA, Y, INCY) DOUBLE COMPLEX Y(*) INTEGER*8 N, INCY DOUBLE PRECISION ALPHA F95 INTERFACE SUBROUTINE SCAL(N, ALPHA, Y, INCY) COMPLEX(8), DIMENSION(:) :: Y INTEGER :: N, INCY REAL(8) :: ALPHA SUBROUTINE SCAL_64(N, ALPHA, Y, INCY) COMPLEX(8), DIMENSION(:) :: Y INTEGER(8) :: N, INCY REAL(8) :: ALPHA C INTERFACE #include <sunperf.h> void zdscal(int n, double alpha, doublecomplex *y, int incy); void zdscal_64(long n, double alpha, doublecomplex *y, long incy);
Oracle Solaris Studio Performance Library zdscal(3P)
NAME
zdscal - Compute y := alpha * y
SYNOPSIS
SUBROUTINE ZDSCAL(N, ALPHA, Y, INCY)
DOUBLE COMPLEX Y(*)
INTEGER N, INCY
DOUBLE PRECISION ALPHA
SUBROUTINE ZDSCAL_64(N, ALPHA, Y, INCY)
DOUBLE COMPLEX Y(*)
INTEGER*8 N, INCY
DOUBLE PRECISION ALPHA
F95 INTERFACE
SUBROUTINE SCAL(N, ALPHA, Y, INCY)
COMPLEX(8), DIMENSION(:) :: Y
INTEGER :: N, INCY
REAL(8) :: ALPHA
SUBROUTINE SCAL_64(N, ALPHA, Y, INCY)
COMPLEX(8), DIMENSION(:) :: Y
INTEGER(8) :: N, INCY
REAL(8) :: ALPHA
C INTERFACE
#include <sunperf.h>
void zdscal(int n, double alpha, doublecomplex *y, int incy);
void zdscal_64(long n, double alpha, doublecomplex *y, long incy);
PURPOSE
zdscal Compute y := alpha * y where alpha is a scalar and y is an n-
vector.
ARGUMENTS
N (input)
On entry, N specifies the number of elements in the vector.
N must be at least one for the subroutine to have any visible
effect. Unchanged on exit.
ALPHA (input)
On entry, ALPHA specifies the scalar alpha. Unchanged on
exit.
Y (input/output)
( 1 + ( n - 1 )*INCY ). On entry, the incremented array Y
must contain the vector y. On exit, Y is overwritten by the
updated vector y.
INCY (input)
On entry, INCY specifies the increment for the elements of Y.
This routine returns immediately if INCY is less than or
equal to zero. Unchanged on exit.
7 Nov 2015 zdscal(3P)