Текст подпрограммы и версий ( Фортран )
avz7r.zip  avz7d.zip  avz7c.zip  		Тексты тестовых примеров ( Фортран )
tavz7r.zip  tavz7d.zip  tavz7c.zip 
Текст подпрограммы и версий ( Си )
avz7r_c.zip  avz7d_c.zip  avz7c_c.zip  		Тексты тестовых примеров ( Си )
tavz7r_c.zip  tavz7d_c.zip  tavz7c_c.zip 
Текст подпрограммы и версий ( Паскаль )
avz7r_p.zip  avz7e_p.zip  avz7c_p.zip  		Тексты тестовых примеров ( Паскаль )
tavz7r_p.zip  tavz7e_p.zip  tavz7c_p.zip 

Функция:  AVZ7R

Назначение

Нахождение индекса максимальной по абсолютной величине компоненты вещественного вектора.

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

Если несколько компонент вектора имеют максимальное абсолютное значение, то из их индексов выбирается минимальный.

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

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

    INTEGER FUNCTION  AVZ7R (N, SX, INCX, IERR) 
   Параметры
N - размерность вектора (тип: целый);
SX - вещественный одномерный массив длины N * | INСХ |, содержащий данный вектор;
INCX - параметр приращения, задающий расположение вектора в массиве (тип: целый);
IERR - целая переменная, указывающая характер ошибки; при этом:
IЕRR=65 - когда N ≤ 0 . 
   Версии
AVZ7D - нахождение индекса максимальной компоненты вещественного вектора, заданного с удвоенной точностью;
AVZ7C - нахождение индекса максимальной компоненты комплексного вектора. 
   Вызываемые подпрограммы
UTAV10 - подпрограмма выдачи диагностических сообщений при работе подпрограмм АVZ7R и АVZ7С.
UTAV11 - подпрограмма выдачи диагностических сообщений при работе подпрограммы АVZ7D. 
   Замечания по использованию
 

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

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

Подпрограммы - функции АVZ7R и АVZ7D определяют наименьший индекс  i  такой, что 

            | xi |  =  max [ | xj | :  j = 1, 2, ... , N ]

Подпрограмма - функция АVZ7С определяет наименьший индекс  i  такой, что 

            | xi |  =  max [ | Re(xj )| + | Im(xj )| :  j = 1, 2, ..., N ]

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

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

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