NAME cvmul - compute the scaled product of complex vectors SUBROUTINE CVMUL(N, ALPHA, X, INCX, Y, INCY, BETA, Z, INCZ) INTEGER N, INCX, INCY, INCZ COMPLEX ALPHA, BETA, X(*), Y(*), Z(*) #include <sunperf.h> void cvmul(int n, complex *alpha, complex *x, int incx, com- plex *y, int incy, complex *beta, complex *z, int 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 N (input) INTEGER Length of the vectors. N >= 0. CVMUL will return immediately if N = 0. ALPHA (input) COMPLEX Scale factor on the multiplicand vectors. X (input) COMPLEX(*) Multiplicand vector. INCX (input) INTEGER Stride between elements of the multiplicand vector X. INCX > 0. Y (input) COMPLEX(*) Multiplicand vector. INCY (input) INTEGER Stride between elements of the multiplicand vector Y. INCY > 0. BETA (input) COMPLEX Scale factor on the product vector. Z (output) COMPLEX(*) Product vector. On exit, z(i) = ALPHA * x(i) * y(i) + BETA * z(i). INCZ (input) INTEGER Stride between elements of Z. INCZ > 0.
Закладки на сайте Проследить за страницей |
Created 1996-2024 by Maxim Chirkov Добавить, Поддержать, Вебмастеру |