|
Текст подпрограммы и версий ( Фортран ) ama6r.zip , ama6d.zip |
Тексты тестовых примеров ( Фортран ) tama6r.zip , tama6d.zip |
|
Текст подпрограммы и версий ( Си ) ama6r_c.zip , ama6d_c.zip |
Тексты тестовых примеров ( Си ) tama6r_c.zip , tama6d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ama6r_p.zip , ama6e_p.zip |
Тексты тестовых примеров ( Паскаль ) tama6r_p.zip , tama6e_p.zip |
Сложение симметричной матрицы и ленточной симметричной, заданных в компактной форме.
АМА6R вычисляет сумму симметричной матрицы А порядка N, заданной в компактной форме, и ленточной симметричной матрицы B того же порядка, заданной также в компактной форме. Результатом этого сложения является результирующая симметричная матрица C порядка N. Матрица C запоминается в компактной форме.
SUBROUTINE AMA6R (A, N, B, NC, C)
Параметры
| A - | вещественный вектор длины N на (N + 1)/2, в котором задается в компактной форме симметричная матрица A; |
| N - | заданный порядок матриц А и B (тип: целый); |
| B - | вещественный двумерный массив размера N на (NС + 1), в котором в компактной форме задается ленточная симметричная матрица B; |
| NC - | заданное число ко - диагоналей матрицы B (тип: целый); |
| C - | вещественный вектор длины N на (N + 1)/2, в котором в компактной форме запоминается результирующая ленточная матрица сложения. |
Версии
| AMA6D - | сложение с повышенной точностью симметричной матрицы и ленточной симметричной, заданных в компактной форме. |
Вызываемые подпрограммы: нет.
Замечания по использованию
| В подпрограмме АМА6D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(10), B(4, 2), C(10)
DATA A /10*1.0/
DATA B /0.0, 7*1.0/
N = 4
NC = 1
CALL AMA6R (A, N, B, NC, C)
Результаты:
| 2.0 |
| 2.0 |
| 2.0 |
| 1.0 |
C = | 2.0 |
| 2.0 |
| 1.0 |
| 1.0 |
| 2.0 |
| 2.0 |