|
Текст подпрограммы и версий ( Фортран ) ama3r.zip , ama3d.zip , ama3c.zip |
Тексты тестовых примеров ( Фортран ) tama3r.zip , tama3d.zip , tama3c.zip |
|
Текст подпрограммы и версий ( Си ) ama3r_c.zip , ama3d_c.zip , ama3c_c.zip |
Тексты тестовых примеров ( Си ) tama3r_c.zip , tama3d_c.zip , tama3c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ama3r_p.zip , ama3e_p.zip , ama3c_p.zip |
Тексты тестовых примеров ( Паскаль ) tama3r_p.zip , tama3e_p.zip , tama3c_p.zip |
Сложение квадратной матрицы с ленточной матрицей, заданной в компактной форме.
АМА3R вычисляет сумму квадратной матрицы А порядка N и ленточной матрицы B того же порядка, заданной в компактной форме. Результатом этого сложения является квадратная матрица C порядка N.
SUBROUTINE AMA3R (A, N, NLB, NUB, C)
Параметры
| A - | вещественный двумерный массив размера N на N, в котором задается матрица A; |
| N - | заданный порядок матриц А и B (тип: целый); |
| B - | вещественный двумерный массив размера N на (NLВ + NUВ + 1), в котором в компактной форме задается ленточная матрица B; |
| NLB - NUB | заданное число нижних и верхних ко - диагоналей матрицы B соответственно (тип: целый); |
| C - | вещественный двумерный массив порядка N, в котором запоминается результирующая матрица сложения. |
Версии
| AMA3D - | сложение с повышенной точностью квадратной матрицы с ленточной матрицей, заданной в компактной форме. |
| AMA3C - | сложение комплексной квадратной матрицы с ленточной комплексной матрицей, заданной в компактной форме. |
Вызываемые подпрограммы: нет.
Замечания по использованию
|
В подпрограмме АМА3D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. В подпрограмме AMA3C параметры А, B и C должны иметь тип СОМРLЕХ. |
DIMENSION A(4, 4), B(4, 4), C(4, 4)
DATA A /16*1.0/
DATA B /2*0.0, 2*1.0, 0.0, 10*1.0, 0.0/
N = 4
NLB = 2
NUB = 1
CALL AMA3R (A, N, B, NLB, NUB, C)
Результаты:
| 2.0 2.0 1.0 1.0 |
| 2.0 2.0 2.0 1.0 |
C = | 2.0 2.0 2.0 2.0 |
| 1.0 2.0 2.0 2.0 |