Текст подпрограммы и версий ( Фортран )
amy5r.zip , amy5d.zip , amy5c.zip
Тексты тестовых примеров ( Фортран )
tamy5r.zip , tamy5d.zip , tamy5c.zip
Текст подпрограммы и версий ( Си )
amy5r_c.zip , amy5d_c.zip , amy5c_c.zip
Тексты тестовых примеров ( Си )
tamy5r_c.zip , tamy5d_c.zip , tamy5c_c.zip
Текст подпрограммы и версий ( Паскаль )
amy5r_p.zip , amy5e_p.zip , amy5c_p.zip
Тексты тестовых примеров ( Паскаль )
tamy5r_p.zip , tamy5e_p.zip , tamy5c_p.zip

Функция:  AMY5R

Назначение

Вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме.

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

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

    REAL FUNCTION  AMY5R ( A, N, I ) 

Параметры

A - вещественный вектор длины N на (N + 1)/2, в котором задается симметричная матрица в компактной форме;
N - порядок матрицы (тип: целый);
I - номер строки (или столбца) (тип: целый).

Версии

AMY5D - вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме с удвоенной точностью.
AMY5C - вычисление суммы абсолютных значений элементов строки (или столбца) эрмитовой матрицы, заданной в компактной форме.

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

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

 

В функции АМY5D вектор  А должен иметь тип DОUВLЕ РRЕСISIОN.

В функции АМY5С вектор  А должен иметь тип СОМРLЕХ.

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

       DIMENSION  A(10)
       DATA  A /1.1, 2.1, 2.2, 3.1, 3.2, 3.3, 4.1, 4.2, 4.3, 4.4/
       N = 4
       I = 3
       Y = AMY5R (A, N, I )

Результат:    Y = 13.9