Текст подпрограммы и версий ( Фортран ) 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 |
Вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме.
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