|
Текст подпрограммы и версий ( Фортран ) ama2r.zip , ama2d.zip |
Тексты тестовых примеров ( Фортран ) tama2r.zip , tama2d.zip |
|
Текст подпрограммы и версий ( Си ) ama2r_c.zip , ama2d_c.zip |
Тексты тестовых примеров ( Си ) tama2r_c.zip , tama2d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ama2r_p.zip , ama2e_p.zip |
Тексты тестовых примеров ( Паскаль ) tama2r_p.zip , tama2e_p.zip |
Сложение квадратной матрицы с ленточной симметричной матрицей, заданной в компактной форме.
АМА2R вычисляет сумму квадратной матрицы А порядка N и ленточной симметричной матрицы B того же порядка, заданной в компактной форме. Результатом этого сложения является квадратная матрица C порядка N.
SUBROUTINE AMA2R (A, N, B, NC, C)
Параметры
| A - | вещественный двумерный массив размера N на N, в котором задается матрица A; |
| N - | заданный порядок матриц А и B (тип: целый); |
| B - | вещественный двумерный массив размера N на (NС + 1), в котором в компактной форме задается ленточная симметричная матрица B; |
| NC - | заданное число ко - диагоналей матрицы B (тип: целый); |
| C - | вещественный двумерный массив размера N на N, в котором запоминается результирующая матрица сложения. |
Версии
| AMA2D - | сложение с повышенной точностью квадратной матрицы с ленточной симметричной матрицей, заданной в компактной форме. |
Вызываемые подпрограммы: нет.
Замечания по использованию
| В подпрограмме АМА2D параметры A, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(4, 4), B(4, 2), C(4, 4)
DATA A /16*1.0/
DATA B /0.0, 7*1.0/
N = 4
NC = 1
CALL AMA2R (A, N, B, NC, C)
Результаты:
| 2.0 2.0 1.0 1.0 |
| 2.0 2.0 2.0 1.0 |
C = | 1.0 2.0 2.0 2.0 |
| 1.0 1.0 2.0 2.0 |