Текст подпрограммы и версий ( Фортран )
amm5r.zip , amm5d.zip 		Тексты тестовых примеров ( Фортран )
tamm5r.zip , tamm5d.zip
Текст подпрограммы и версий ( Си )
amm5r_c.zip , amm5d_c.zip 		Тексты тестовых примеров ( Си )
tamm5r_c.zip , tamm5d_c.zip
Текст подпрограммы и версий ( Паскаль )
amm5r_p.zip , amm5e_p.zip 		Тексты тестовых примеров ( Паскаль )
tamm5r_p.zip , tamm5e_p.zip

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

Назначение

Умножение симметричных матриц, заданных в компактной форме.

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

АММ5R вычисляет произведение симметричных матриц А и B порядка N, заданных в компактной форме. Результатом этого произведения является квадратная матрица C порядка N.

Использование 

    SUBROUTINE  AMM5R (A, B, N, C) 
   Параметры
A, B - вещественные векторы длины N * (N + 1)/2, в которых задаются симметричные матрицы А и B в компактной форме;
N - заданный порядок матриц А и B (тип: целый);
C - вещественный двумерный массив размера N*N, в котором запоминается матрица произведения. 
   Версии
AMM5D - умножение с повышенной точностью симметричных матриц, заданных в компактной форме. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  В подпрограмме АММ5R параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN.

Пример использования 

          DIMENSION  A(15), B(15), C(5, 5)
          DATA  A /15*1.0/,  B /15*2.0/
          N = 5
          CALL  AMM5R (A, B, N, C)

Результаты:

                 |  10   10   10   10   10  |
                 |  10   10   10   10   10  |
      C  =    |  10   10   10   10   10  |
                 |  10   10   10   10   10  |
                 |  10   10   10   10   10  |