|
Текст подпрограммы и версий ( Фортран ) amm3r.zip , amm3d.zip |
Тексты тестовых примеров ( Фортран ) tamm3r.zip , tamm3d.zip |
|
Текст подпрограммы и версий ( Си ) amm3r_c.zip , amm3d_c.zip |
Тексты тестовых примеров ( Си ) tamm3r_c.zip , tamm3d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amm3r_p.zip , amm3e_p.zip |
Тексты тестовых примеров ( Паскаль ) tamm3r_p.zip , tamm3e_p.zip |
Умножение прямоугольной матрицы на симметричную ленточную матрицу, заданную в компактной форме.
АММ3R вычисляет произведение прямоугольной матрицы А размера N на М на симметричную ленточную матрицу B порядка М с NС ко - диагоналями, заданную в компактной форме. Результатом этого произведения является прямоугольная матрица C размера N на М.
SUBROUTINE AMM3R (A, N, M, B, NC, C)
Параметры
| A - | вещественный двумерный массив размера N*М, в котором задается матрица A; |
| N - | заданное число строк матрицы А (тип: целый); |
| M - | заданное число столбцов матрицы А (тип: целый); |
| B - | вещественный двумерный массив размера М * (NС + 1), в котором задается симметричная ленточная матрица B в компактной форме; |
| NC - | заданное число ко - диагоналей матрицы B (тип: целый); |
| C - | вещественный двумерный массив размера N*М, в котором запоминается матрица произведения. |
Версии
| AMM3D - | умножение с повышенной точностью прямоугольной матрицы на симметричную ленточную матрицу, заданную в компактной форме. |
Вызываемые подпрограммы: нет
Замечания по использованию
| В подпрограмме АММ3D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(3, 4), B(4, 2), C(3, 4)
DATA A /12*1.0/
DATA B /0.0, 7*1.0/
N = 3
M = 4
NC = 1
CALL AMM3R (A, N, M, B, NC, C)
Результаты:
| 2. 3. 3. 2. |
C = | 2. 3. 3. 2. |
| 2. 3. 3. 2. |