|
Текст подпрограммы и версий ( Фортран ) am11r.zip , am11d.zip , am11c.zip |
Тексты тестовых примеров ( Фортран ) tam11r.zip , tam11d.zip , tam11c.zip |
|
Текст подпрограммы и версий ( Си ) am11r_c.zip , am11d_c.zip , am11c_c.zip |
Тексты тестовых примеров ( Си ) tam11r_c.zip , tam11d_c.zip , tam11c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) am11r_p.zip , am11e_p.zip , am11c_p.zip |
Тексты тестовых примеров ( Паскаль ) tam11r_p.zip , tam11e_p.zip , tam11c_p.zip |
Умножение квадратных матриц.
Вычисляется произведение квадратных матриц А и B размера N * N. Результат произведения - квадратная матрица размера N * N, запоминающаяся на месте матрицы В.
SUBROUTINE AM11R (A, B, S, N)
Параметры
| A, B - | двумерные массивы размера N * N, в которых задаются, соответственно левая и правая матрицы произведения; на выходе из подпрограммы вычисленное произведение запоминается на месте матрицы B (тип: вещественный); |
| S - | рабочий вектор длины N (тип: вещественный); |
| N - | заданное число строк и столбцов матриц А и B (тип: целый). |
Версии
| AM11D - | умножение кавдратных матриц с повышенной точностью; |
| AM11C - | умножение комплексных квадратных матриц; |
Вызываемые подпрограммы: нет.
Замечания по использованию
| 1. |
В подпрограмме АМ11D параметры А, B и S имеют тип DОUВLЕ РRЕСISIОN. | |
| 2. | В подпрограмме AM11C параметры А, B и S имеют тип СОМРLЕХ. |
DIMENSION A(4, 4), B(4, 4), S(4)
DATA A /1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 12., 13., 14.,
* 15., 16.)
DATA B /1., 0., 1., 0., 0., 1., 0., 1., 1., 1., 0., 0., 1., 0., 0., 1./
N = 4
CALL AM11R (A, B, S, N)
Результат:
| 10. 18. 6. 14. |
| 12. 20. 8. 16. |
B = | 14. 22. 10. 18. |
| 16. 24. 12. 20. |