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

Подпрограмма:  AM11R

Назначение

Умножение квадратных матриц.

Математическое описание

Вычисляется произведение квадратных матриц  А и  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.  |