|
Текст подпрограммы и версий ( Фортран ) ama5r.zip , ama5d.zip |
Тексты тестовых примеров ( Фортран ) tama5r.zip , tama5d.zip |
|
Текст подпрограммы и версий ( Си ) ama5r_c.zip , ama5d_c.zip |
Тексты тестовых примеров ( Си ) tama5r_c.zip , tama5d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ama5r_p.zip , ama5e_p.zip |
Тексты тестовых примеров ( Паскаль ) tama5r_p.zip , tama5e_p.zip |
Сложение симметричной матрицы и ленточной, заданных в компактной форме.
АМА5R вычисляет сумму симметричной матрицы А порядка N, заданной в компактной форме, и ленточной матрицы B того же порядка, заданной также в компактной форме. Результатом этого сложения является квадратная матрица C порядка N.
SUBROUTINE AMA5R (A, N, B, NLB, NUB, C)
Параметры
| A - | вещественный вектор длины N на (N + 1)/2, в котором в компактной форме задается симметричная матрица A; |
| N - | заданный порядок матриц А и B (тип: целый); |
| B - | вещественный двумерный массив размера N на (NLВ + NUВ + 1), в котором в компактной форме задается ленточная матрица B; |
|
NLB - NUB | заданное число нижних и верхних ко - диагоналей матрицы B соответственно (тип: целый); |
| C - | вещественный двумерный массив размера N на N, в котором запоминается результирующая матрица сложения. |
Версии
| AMA5D - | сложение с повышенной точностью симметричной матрицы и ленточной, заданных в компактной форме. |
Вызываемые подпрограммы: нет.
Замечания по использованию
| В подпрограмме АМА5D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(15), B(5, 4), C(5, 5)
DATA A /15*1.0/
DATA B /2*0.0, 3*1.0, 0.0, 13*1.0, 0.0/
N = 5
NLB = 2
NUB = 1
CALL AMA5R (A, N, B, NLB, NUB, C)
Результаты:
| 2.0 2.0 1.0 1.0 1.0 |
| 2.0 2.0 2.0 1.0 1.0 |
C = | 2.0 2.0 2.0 2.0 1.0 |
| 1.0 2.0 2.0 2.0 2.0 |
| 1.0 1.0 2.0 2.0 2.0 |