Текст подпрограммы и версий ( Фортран )
av11r.zip  av11d.zip  av11c.zip  		Тексты тестовых примеров ( Фортран )
tav11r.zip  tav11d.zip  tav11c.zip 
Текст подпрограммы и версий ( Си )
av11r_c.zip  av11d_c.zip  av11c_c.zip  		Тексты тестовых примеров ( Си )
tav11r_c.zip  tav11d_c.zip  tav11c_c.zip 
Текст подпрограммы и версий ( Паскаль )
av11r_p.zip  av11e_p.zip  av11c_p.zip  		Тексты тестовых примеров ( Паскаль )
tav11r_p.zip  tav11e_p.zip  tav11c_p.zip 

Функция:  AV11R

Назначение

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

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

АV11R вычисляет скалярное произведение двух  n - мерных вещественных векторов 

  (X, Y) = x1 y1 + x2 y2 +...+ xn yn

где  X = ( x1, x2, ... , xn ) , Y = ( y1, y2, ... , yn ) .

Векторы X и Y не обязательно должны занимать последовательные слова памяти машины и могут располагаться в памяти с некоторыми постоянными интервалами между компонентами, которые называются параметрами приращения.

Эти параметры могут быть меньше нуля, если обработка компонент вектора должна производиться в обратном порядке.

В случае когда параметры приращения равны 1, используется развернутый цикл с шагом 5.

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

    FUNCTION  AV11R (N, SX, INCX, SY, INCY, IERR) 
   Параметры
N - размерность векторов (тип: целый);
SX, SY - вещественные одномерные массивы длины N * | INСХ | и N * | INСY | соответственно, содержащие заданные векторы;
         INCX -
         INCY   		параметры приращения, задающие расположение векторов в массивах SХ и SY соответственно (тип: целый);
IERR - целая переменная, указывающая характер ошибки, при этом:
IЕRR=65 - когда N ≤ 0;
IЕRR=66 - когда в процессе счета произошло переполнение центрального процессора. 
   Версии
AV11D - вычисление скалярного произведения вещественных векторов, заданных с удвоенной точностью;
AV11C - вычисление скалярного произведения комплексных векторов по формуле:
(X, Y) = x1 y*1 + x2 y*2 +... + xn y*n
где " * " - знак комплексного сопряжения. 
   Вызываемые подпрограммы
UTAV10 - подпрограмма выдачи диагностических сообщений при работе подпрограмм АV11R и АV11С.
UTAV11 - подпрограмма выдачи диагностических сообщений при работе подпрограммы АV11D. 
   Замечания по использованию
 

В функции АV11D одномерные массивы, содержащие заданные векторы, обозначены DХ и DY и имеют тип DОUВLЕ РRЕСISIОN.

В функции АV11С одномерные массивы, содержащие заданные векторы, обозначены СХ и СY и имеют тип СОМРLЕХ.

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

          DIMENSION SX(11), SY(11)
          DATA SX /1., 2., 2., 2., 3., 2., 4., 2., 5., 2., 6./
          DATA SY /1., 2., 2., 2., 3., 2., 4., 2., 5., 2., 6./
          N = 6
          INCX = 2
          INCY = 2
          IERR = 0
          SW = AV11R (N, SX, INCX, SY, INCY, IERR)

Результаты:    SW  =  91.0 ,    IERR  =  0