|
Текст подпрограммы и версий ( Фортран ) ammar.zip , ammad.zip |
Тексты тестовых примеров ( Фортран ) tammar.zip , tammad.zip |
|
Текст подпрограммы и версий ( Си ) ammar_c.zip , ammad_c.zip |
Тексты тестовых примеров ( Си ) tammar_c.zip , tammad_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ammar_p.zip , ammae_p.zip |
Тексты тестовых примеров ( Паскаль ) tammar_p.zip , tammae_p.zip |
Умножение симметричной ленточной матрицы, заданной в компактной форме, на прямоугольную матрицу.
АММАR вычисляет произведение симметричной ленточной матрицы А порядка N с NС ко - диагоналями, заданную в компактной форме, на прямоугольную матрицу B размера N на М. Результатом этого произведения является прямоугольная матрица C размера N на М.
SUBROUTINE AMMAR (A, N, NC, B, M, C)
Параметры
| A - | вещественный двумерный массив размера N* (NС + 1), в котором задается симметричная ленточная матрица А в компактной форме; |
| N - | заданный порядок матрицы А (тип: целый); |
| NC - | заданное число ко - диагоналей матрицы А (тип: целый); |
| B - | вещественный двумерный массив размера N*М, в котором задается прямоугольная матрица B; |
| M - | заданное число столбцов матрицы B (тип: целый); |
| C - | вещественный двумерный массив размера N*М, в котором запоминается матрица произведения. |
Версии
| AMMAD - | умножение с повышенной точностью симметричной ленточной матрицы, заданной в компактной форме, на прямоугольную матрицу. |
Вызываемые подпрограммы: нет
Замечания по использованию
| В подпрограмме АММАD параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(5, 2), B(5, 3), C(5, 3)
DATA A /0.0, 9*1.0/
DATA B /15*1.0/
N = 5
NC = 1
M = 3
CALL AMMAR (A, N, NC, B, M, C)
Результаты:
| 2. 2. 2. |
| 3. 3. 3. |
C = | 3. 3. 3. |
| 3. 3. 3. |
| 2. 2. 2. |