Текст подпрограммы и версий ( Фортран )
av04r.zip  av04d.zip  av04c.zip  		Тексты тестовых примеров ( Фортран )
tav04r.zip  tav04d.zip  tav04c.zip 
Текст подпрограммы и версий ( Си )
av04r_c.zip  av04d_c.zip  av04c_c.zip  		Тексты тестовых примеров ( Си )
tav04r_c.zip  tav04d_c.zip  tav04c_c.zip 
Текст подпрограммы и версий ( Паскаль )
av04r_p.zip  av04e_p.zip  av04c_p.zip  		Тексты тестовых примеров ( Паскаль )
tav04r_p.zip  tav04e_p.zip  tav04c_p.zip 

Функция:  AV04R

Назначение

Вычисление скалярного произведения векторов.

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

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

     (U,V) = U1*V1 + U2*V2 + ... + UN*VN.

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

    REAL FUNCTION  AV04R (U, V, N) 
   Параметры
U, V - одномерные массивы длины N, в которых задаются исходные векторы (тип: вещественный);
N - размерность векторов U и V (тип: целый). 
   Версии
AV04D - вычисление скалярного произведения векторов с повышенной точностью;
AV04C - вычисление скалярного произведения комплексных векторов; 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  1. 

В функции АV04D параметры U и V имеют тип DОUВLЕ РRЕСISIОN.

  2. 

В функции АV04С параметры U и V имеют тип СОМРLЕХ.

  3. 

В функции АV04С скалярное произведение вычисляется по формуле

(U,V) = U1*V*1 + U2*V*2 +... + UN*V*N
где " * " - знак комплексного сопряжения.

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

          DIMENSION U(4), V(4)
          DATA  U /3., 2., 1., 1./,  V /1., 2., 0., 1./
          N = 4
          S = AV04R (U, V, N)

Результат:    S = 8.