|
Текст подпрограммы и версий ( Фортран ) amm6r.zip , amm6d.zip |
Тексты тестовых примеров ( Фортран ) tamm6r.zip , tamm6d.zip |
|
Текст подпрограммы и версий ( Си ) amm6r_c.zip , amm6d_c.zip |
Тексты тестовых примеров ( Си ) tamm6r_c.zip , tamm6d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amm6r_p.zip , amm6e_p.zip |
Тексты тестовых примеров ( Паскаль ) tamm6r_p.zip , tamm6e_p.zip |
Умножение симметричной матрицы, заданной в компактной форме, на прямоугольную матрицу.
АММ6R вычисляет произведение симметричной матрицы А порядка N, заданной в компактной форме, на прямоугольную матрицу B размера N на М. Результатом этого произведения является прямоугольная матрица C размера N на М.
SUBROUTINE AMM6R (A, N, B, M, C)
Параметры
| A - | вещественный вектор длины N * (N + 1)/2, в котором задается симметричная матрица А в компактной форме; |
| N - | заданный порядок матрицы А (тип: целый); |
| B - | вещественный двумерный массив размера N*М, в котором задается прямоугольная матрица B; |
| M - | заданное число столбцов матрицы B (тип: целый); |
| C - | вещественный двумерный массив размера N*М, в котором запоминается матрица произведения. |
Версии
| AMM6D - | умножение с повышенной точностью симметричной матрицы, заданной в компактной форме, на прямоугольную матрицу. |
Вызываемые подпрограммы: нет
Замечания по использованию
| В подпрограмме АММ6D параметры А, B и С должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(10), B(4, 3), C(4, 3)
DATA A /10*1.0/
DATA B /12*1.0/
N = 4
M = 3
CALL AMM6R (A, N, B, M, C)
Результаты:
| 4. 4. 4. |
C = | 4. 4. 4. |
| 4. 4. 4. |