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)