|
Текст подпрограммы и версий ( Фортран ) ammbr.zip , ammbd.zip |
Тексты тестовых примеров ( Фортран ) tammbr.zip , tammbd.zip |
|
Текст подпрограммы и версий ( Си ) ammbr_c.zip , ammbd_c.zip |
Тексты тестовых примеров ( Си ) tammbr_c.zip , tammbd_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ammbr_p.zip , ammbe_p.zip |
Тексты тестовых примеров ( Паскаль ) tammbr_p.zip , tammbe_p.zip |
Умножение симметричной ленточной матрицы, заданной в компактной форме, на симметричную матрицу, заданную в компактной форме.
АММВR вычисляет произведение симметричной ленточной матрицы А порядка N с NС ко - диагоналями на симметричную матрицу B порядка N. Матрицы А и B задаются в компактной форме представления. Результатом этого произведения является квадратная матрица C порядка N.
SUBROUTINE AMMBR (A, N, NC, B, C)
Параметры
| A - | вещественный двумерный массив размера N* (NС + 1), в котором задается симметричная ленточная матрица А в компактной форме; |
| N - | заданный порядок матриц А и B (тип: целый); |
| NC - | заданное число ко - диагоналей матрицы А (тип: целый); |
| B - | вещественный вектор длины N* (N + 1)/2, в котором задается симметричная матрица B в компактной форме; |
| C - | вещественный двумерный массив размера N*N, в котором запоминается матрица произведения. |
Версии
| AMMBD - | умножение с повышенной точностью симметричной ленточной матрицы, заданной в компактной форме, на симметричную матрицу, заданную в компактной форме. |
Вызываемые подпрограммы: нет
Замечания по использованию
| В подпрограмме АММВD параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(5, 2), B(15), C(5, 5)
DATA A /0.0, 9*1.0/, B /15*1.0/
N = 5
NC = 1
CALL AMMBR (A, N, NC, B, C)
Результаты:
| 2 2 2 2 2 |
| 3 3 3 3 3 |
C = | 3 3 3 3 3 |
| 3 3 3 3 3 |
| 2 2 2 2 2 |