|
Текст подпрограммы и версий ( Фортран ) amm1r.zip , amm1d.zip , amm1c.zip |
Тексты тестовых примеров ( Фортран ) tamm1r.zip , tamm1d.zip , tamm1c.zip |
|
Текст подпрограммы и версий ( Си ) amm1r_c.zip , amm1d_c.zip , amm1c_c.zip |
Тексты тестовых примеров ( Си ) tamm1r_c.zip , tamm1d_c.zip , tamm1c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amm1r_p.zip , amm1e_p.zip , amm1c_p.zip |
Тексты тестовых примеров ( Паскаль ) tamm1r_p.zip , tamm1e_p.zip , tamm1c_p.zip |
Умножение прямоугольных матриц.
АММ1R вычисляет произведение прямоугольной матрицы А размера N на М на прямоугольную матрицу B размера М на L. Результатом этого произведения является прямоугольная матрица C размера N на L.
SUBROUTINE AMM1R (A, N, M, B, L, C)
Параметры
| A - | вещественный двумерный массив размера N*М, в котором задается матрица A; |
| N - | заданное число строк матрицы А (тип: целый); |
| M - | заданное число столбцов матрицы А (тип: целый); |
| B - | вещественный двумерный массив размера М*L, в котором задается матрица B; |
| L - | заданное число столбцов матрицы B (тип: целый); |
| C - | вещественный двумерный массив размера N*L, в котором запоминается матрица произведения. |
Версии
| AMM1D - | умножение прямоугольных матриц с повыщенной точностью. |
| AMM1C - | умножение прямоугольных комплексных матриц. |
Вызываемые подпрограммы: нет
Замечания по использованию
|
В подпрограмме АММ1D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. В подпрограмме AMM1C параметры А, B и C должны иметь тип СОМРLЕХ. |
DIMENSION A(3, 5), B(5, 4), C(3, 4)
DATA A /15*1.0/
DATA B /20*1.0/
N = 3
M = 5
L = 4
CALL AMM1R (A, N, M, B, L, C)
Результаты:
| 5. 5. 5. 5. |
C = | 5. 5. 5. 5. |
| 5. 5. 5. 5. |