|
Текст подпрограммы и версий ( Фортран ) amazr.zip , amazd.zip |
Тексты тестовых примеров ( Фортран ) tamazr.zip , tamazd.zip |
|
Текст подпрограммы и версий ( Си ) amazr_c.zip , amazd_c.zip |
Тексты тестовых примеров ( Си ) tamazr_c.zip , tamazd_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amazr_p.zip , amaze_p.zip |
Тексты тестовых примеров ( Паскаль ) tamazr_p.zip , tamaze_p.zip |
Сложение квадратной матрицы с симметричной матрицей, заданной в компактной форме.
АМАZR вычисляет сумму квадратной матрицы А порядка N и симметричной матрицы B того же порядка, заданной в компактной форме. Результатом этого сложения является квадратная матрица C порядка N.
SUBROUTINE AMAZR (A, N, B, C)
Параметры
| A - | вещественный двумерный массив размера N на N, в котором задается матрица A; |
| N - | заданный порядок матриц А и B (тип: целый); |
| B - | вещественный вектор длины N на (N + 1)/2, в котором задается в компактной форме симметричная матрица B; |
| C - | вещественный двумерный массив размера N на N, в котором запоминается результирующая матрица сложения. |
Версии
| AMAZD - | сложение с повышенной точностью квадратной матрицы с симметричной матрицей, заданной в компактной форме. |
Вызываемые подпрограммы: нет.
Замечания по использованию
| В подпрограмме АМАZD параметры А, B, и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(4, 4), B(10), C(4, 4)
DATA A /16*1.0/
DATA B /10*1.0/
N = 4
CALL AMAZR (A, N, B, C)
Результаты:
| 2.0 2.0 2.0 2.0 |
| 2.0 2.0 2.0 2.0 |
C = | 2.0 2.0 2.0 2.0 |
| 2.0 2.0 2.0 2.0 |