Текст подпрограммы и версий ( Фортран ) 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. |