|
Текст подпрограммы и версий ( Фортран ) amm7r.zip , amm7d.zip |
Тексты тестовых примеров ( Фортран ) tamm7r.zip , tamm7d.zip |
|
Текст подпрограммы и версий ( Си ) amm7r_c.zip , amm7d_c.zip |
Тексты тестовых примеров ( Си ) tamm7r_c.zip , tamm7d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amm7r_p.zip , amm7e_p.zip |
Тексты тестовых примеров ( Паскаль ) tamm7r_p.zip , tamm7e_p.zip |
Умножение симметричной матрицы, заданной в компактной форме, на ленточную симметричную матрицу, заданную в компактной форме.
АММ7R вычисляет произведение симметричной матрицы А порядка N на симметричную ленточную матрицу B порядка N с NС ко - диагоналями. Матрицы А и B задаются в компактной форме представления. Результатом этого произведения является квадратная матрица C порядка N.
SUBROUTINE AMM7R (A, N, B, NC, C)
Параметры
| A - | вещественный вектор длины N * (N + 1)/2, в котором задается симметричная матрица А в компактной форме представления; |
| N - | заданный порядок матриц (тип: целый); |
| B - | вещественный двумерный массив размера N * (NС + 1), в котором задается симметричная ленточная матрица B в компактной форме; |
| NC - | заданное число ко - диагоналей матрицы B (тип: целый); |
| C - | вещественный двумерный массив размера N*N, в котором запоминается матрица произведения. |
Версии
| AMM7D - | умножение с повышенной точностью симметричной матрицы, заданной в компактной форме, на ленточную симметричную матрицу, заданную в компактной форме. |
Вызываемые подпрограммы: нет
Замечания по использованию
| В подпрограмме АММ7D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(10), B(4, 2), C(4, 4)
DATA A /10*1.0/
DATA B /0.0, 7*1.0/
N = 4
NC = 1
CALL AMM7R (A, N, B, NC, C)
Результаты:
| 2. 3. 3. 2. |
| 2. 3. 3. 2. |
C = | 2. 3. 3. 2. |
| 2. 3. 3. 2. |