Текст подпрограммы и версий
av05c_c.zip 
Тексты тестовых примеров
tav05c_c.zip 

Подпрограмма:  av05c_c

Назначение

Вычисление суммы покомпонентных произведений двух комплексных векторов.

Математическое описание

Для заданных комплексныx вeкторов U и V длины N вычисляется сумма

                N
       S  =  ∑  UK*VK  .
              K=1 

Использование

    void av05c_c (complex * ret_val, complex *u, complex *v,
            integer *n)

Параметры

ret_val - результат вычисления (тип: комплексный);
u, v - одномерные массивы длины n, в которых задаются исходные векторы (тип: комплексный);
n - размерность векторов U и V (тип: целый).

Версии: нет

Вызываемые подпрограммы: нет

Замечания по использованию: нет

Пример использования

int main(void)
{
    /* Initialized data */
    static complex u1[4] = { {1.f,0.f},{2.f,0.f},{3.f,0.f},{4.f,1.f} };
    static complex u2[4] = { {1.f,0.f},{1.f,0.f},{1.f,0.f},{1.f,1.f} };

    /* System generated locals */
    complex q__1;

    /* Local variables */
    extern /* Complex */ void av05c_c(complex *, complex *, complex *,
                                      int *);
    static int n;
    static complex s;

    n = 4;
    av05c_c(&q__1, u1, u2, &n);
    s.r = q__1.r, s.i = q__1.i;

    printf("\n  %12.4e %12.4e \n", s.r, s.i);
    return 0;
} /* main */


Результат:    s = (9., 5.)