zscal - Compute y := alpha * y
SUBROUTINE ZSCAL(N, ALPHA, Y, INCY) DOUBLE COMPLEX ALPHA DOUBLE COMPLEX Y(*) INTEGER N, INCY SUBROUTINE ZSCAL_64(N, ALPHA, Y, INCY) DOUBLE COMPLEX ALPHA DOUBLE COMPLEX Y(*) INTEGER*8 N, INCY F95 INTERFACE SUBROUTINE SCAL(N, ALPHA, Y, INCY) COMPLEX(8) :: ALPHA COMPLEX(8), DIMENSION(:) :: Y INTEGER :: N, INCY SUBROUTINE SCAL_64(N, ALPHA, Y, INCY) COMPLEX(8) :: ALPHA COMPLEX(8), DIMENSION(:) :: Y INTEGER(8) :: N, INCY C INTERFACE #include <sunperf.h> void zscal(int n, doublecomplex *alpha, doublecomplex *y, int incy); void zscal_64(long n, doublecomplex *alpha, doublecomplex *y, long incy);
Oracle Solaris Studio Performance Library zscal(3P)
NAME
zscal - Compute y := alpha * y
SYNOPSIS
SUBROUTINE ZSCAL(N, ALPHA, Y, INCY)
DOUBLE COMPLEX ALPHA
DOUBLE COMPLEX Y(*)
INTEGER N, INCY
SUBROUTINE ZSCAL_64(N, ALPHA, Y, INCY)
DOUBLE COMPLEX ALPHA
DOUBLE COMPLEX Y(*)
INTEGER*8 N, INCY
F95 INTERFACE
SUBROUTINE SCAL(N, ALPHA, Y, INCY)
COMPLEX(8) :: ALPHA
COMPLEX(8), DIMENSION(:) :: Y
INTEGER :: N, INCY
SUBROUTINE SCAL_64(N, ALPHA, Y, INCY)
COMPLEX(8) :: ALPHA
COMPLEX(8), DIMENSION(:) :: Y
INTEGER(8) :: N, INCY
C INTERFACE
#include <sunperf.h>
void zscal(int n, doublecomplex *alpha, doublecomplex *y, int incy);
void zscal_64(long n, doublecomplex *alpha, doublecomplex *y, long
incy);
PURPOSE
zscal Compute y := alpha * y where alpha is a scalar and y is an n-vec-
tor.
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 zscal(3P)