NAME

zvmul - compute the scaled product of complex vectors

SYNOPSIS

  SUBROUTINE ZVMUL( N, ALPHA, X, INCX, Y, INCY, BETA, Z, INCZ)
  DOUBLE COMPLEX ALPHA, BETA
  DOUBLE COMPLEX X(*), Y(*), Z(*)
  INTEGER N, INCX, INCY, INCZ
  SUBROUTINE ZVMUL_64( N, ALPHA, X, INCX, Y, INCY, BETA, Z, INCZ)
  DOUBLE COMPLEX ALPHA, BETA
  DOUBLE COMPLEX X(*), Y(*), Z(*)
  INTEGER*8 N, INCX, INCY, INCZ

F95 INTERFACE

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

C INTERFACE

#include <sunperf.h>

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

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

PURPOSE

zvmul computes the scaled product of complex vectors:

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

for 1 <= i <= N.

ARGUMENTS