Текст подпрограммы и версий ( Фортран )
amm3r.zip , amm3d.zip
Тексты тестовых примеров ( Фортран )
tamm3r.zip , tamm3d.zip
Текст подпрограммы и версий ( Си )
amm3r_c.zip , amm3d_c.zip
Тексты тестовых примеров ( Си )
tamm3r_c.zip , tamm3d_c.zip
Текст подпрограммы и версий ( Паскаль )
amm3r_p.zip , amm3e_p.zip
Тексты тестовых примеров ( Паскаль )
tamm3r_p.zip , tamm3e_p.zip

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

Назначение

Умножение прямоугольной матрицы на симметричную ленточную матрицу, заданную в компактной форме.

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

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

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

    SUBROUTINE  AMM3R (A, N, M, B, NC, C) 

Параметры

A - вещественный двумерный массив размера N*М, в котором задается матрица A;
N - заданное число строк матрицы А (тип: целый);
M - заданное число столбцов матрицы А (тип: целый);
B - вещественный двумерный массив размера М * (NС + 1), в котором задается симметричная ленточная матрица B в компактной форме;
NC - заданное число ко - диагоналей матрицы B (тип: целый);
C - вещественный двумерный массив размера N*М, в котором запоминается матрица произведения.

Версии

AMM3D - умножение с повышенной точностью прямоугольной матрицы на симметричную ленточную матрицу, заданную в компактной форме.

Вызываемые подпрограммы: нет

Замечания по использованию

  В подпрограмме АММ3D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN.

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

          DIMENSION  A(3, 4), B(4, 2), C(3, 4)
          DATA  A /12*1.0/
          DATA  B /0.0, 7*1.0/
          N = 3
          M = 4
          NC = 1
          CALL  AMM3R (A, N, M, B, NC, C)

Результаты:

                   |  2.   3.   3.   2.  |
         C  =   |  2.   3.   3.   2.  |
                   |  2.   3.   3.   2.  |