Contents
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);
zdscal Compute y := alpha * y where alpha is a scalar and y
is an n-vector.
N (input)
On entry, N specifies the number of elements in
the vector. N must be at least one for the sub-
routine 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.