NAME

cvmul - compute the scaled product of complex vectors

SYNOPSIS

  SUBROUTINE CVMUL( N, ALPHA, X, INCX, Y, INCY, BETA, Z, INCZ)
  COMPLEX ALPHA, BETA
  COMPLEX X(*), Y(*), Z(*)
  INTEGER N, INCX, INCY, INCZ
  SUBROUTINE CVMUL_64( N, ALPHA, X, INCX, Y, INCY, BETA, Z, INCZ)
  COMPLEX ALPHA, BETA
  COMPLEX X(*), Y(*), Z(*)
  INTEGER*8 N, INCX, INCY, INCZ

F95 INTERFACE

  SUBROUTINE VMUL( [N], ALPHA, X, [INCX], Y, [INCY], BETA, Z, [INCZ])
  COMPLEX :: ALPHA, BETA
  COMPLEX, DIMENSION(:) :: X, Y, Z
  INTEGER :: N, INCX, INCY, INCZ
  SUBROUTINE VMUL_64( [N], ALPHA, X, [INCX], Y, [INCY], BETA, Z, [INCZ])
  COMPLEX :: ALPHA, BETA
  COMPLEX, DIMENSION(:) :: X, Y, Z
  INTEGER(8) :: N, INCX, INCY, INCZ

C INTERFACE

#include <sunperf.h>

void cvmul(int n, complex alpha, complex *x, int incx, complex *y, int incy, complex beta, complex *z, int incz);

void cvmul_64(long n, complex alpha, complex *x, long incx, complex *y, long incy, complex beta, complex *z, long incz);

PURPOSE

cvmul computes the scaled product of complex vectors:

  z(i) = ALPHA * x(i) * y(i) + BETA * z(i)

for 1 <= i <= N.

ARGUMENTS