|
Текст подпрограммы и версий ( Фортран ) amm2r.zip , amm2d.zip |
Тексты тестовых примеров ( Фортран ) tamm2r.zip , tamm2d.zip |
|
Текст подпрограммы и версий ( Си ) amm2r_c.zip , amm2d_c.zip |
Тексты тестовых примеров ( Си ) tamm2r_c.zip , tamm2d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amm2r_p.zip , amm2e_p.zip |
Тексты тестовых примеров ( Паскаль ) tamm2r_p.zip , tamm2e_p.zip |
Умножение прямоугольной матрицы на симметричную матрицу, заданную в компактной форме.
АММ2R вычисляет произведение прямоугольной матрицы А размера N на М на симметричную матрицу B порядка М, заданную в компактной форме. Результатом этого произведения является матрица C размера N на М.
SUBROUTINE AMM2R (A, N, M, B, C)
Параметры
| A - | вещественный двумерный массив размера N*М, в котором задается матрица A; |
| N - | заданное число строк матрицы А (тип: целый); |
| M - | заданное число столбцов матрицы А (тип: целый); |
| B - | вещественный вектор длины М * (M + 1) /2, в котором задается симметричная матрица B в компактной форме; |
| C - | вещественный двумерный массив размера N*М, в котором запоминается матрица произведения. |
Версии
| AMM2D - | умножение с повышенной точностью прямоугольной матрицы на симметричную, заданную в компактной форме. |
Вызываемые подпрограммы: нет
Замечания по использованию
| В подпрограмме АММ2D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(3, 4), B(10), C(3, 4)
DATA A /12*1.0/
DATA B /10*1.0/
N = 3
M = 4
CALL AMM2R (A, N, M, B, C)
Результаты:
| 4. 4. 4. 4. |
S = | 4. 4. 4. 4. |
| 4. 4. 4. 4. |