dscal - Compute y := alpha * y
SUBROUTINE DSCAL( N, ALPHA, Y, INCY) INTEGER N, INCY DOUBLE PRECISION ALPHA DOUBLE PRECISION Y(*)
SUBROUTINE DSCAL_64( N, ALPHA, Y, INCY) INTEGER*8 N, INCY DOUBLE PRECISION ALPHA DOUBLE PRECISION Y(*)
SUBROUTINE SCAL( [N], ALPHA, Y, [INCY]) INTEGER :: N, INCY REAL(8) :: ALPHA REAL(8), DIMENSION(:) :: Y
SUBROUTINE SCAL_64( [N], ALPHA, Y, [INCY]) INTEGER(8) :: N, INCY REAL(8) :: ALPHA REAL(8), DIMENSION(:) :: Y
#include <sunperf.h>
void dscal(int n, double alpha, double *y, int incy);
void dscal_64(long n, double alpha, double *y, long incy);
dscal Compute y := alpha * y where alpha is a scalar and y is an n-vector.