|
Текст подпрограммы и версий ( Фортран ) am16r.zip , am16d.zip , am16c.zip |
Тексты тестовых примеров ( Фортран ) tam16r.zip , tam16d.zip , tam16c.zip |
|
Текст подпрограммы и версий ( Си ) am16r_c.zip , am16d_c.zip , am16c_c.zip |
Тексты тестовых примеров ( Си ) tam16r_c.zip , tam16d_c.zip , tam16c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) am16r_p.zip , am16e_p.zip , am16c_p.zip |
Тексты тестовых примеров ( Паскаль ) tam16r_p.zip , tam16e_p.zip , tam16c_p.zip |
Умножение симметричной матрицы, заданной в компактной форме, на вектор.
Для симметричной матрицы А размера N * N, заданной в компактной форме, и вектора B длины N вычисляется вектор C длины N, C = A B .
SUBROUTINE AM16R (A, B, C, N)
Параметры
| A - | вещественный вектор длины N * (N + 1)/2, содержащий симметричную матрицу A, заданную в компактной форме; |
| B - | вещественный одномерный массив длины N, содержащий заданный вектор - сомножитель; |
| C - | вещественный вектор длины N, в котором запоминается результат произведения; |
| N - | заданный порядок исходной матрицы А (тип: целый). |
Версии
| AM16D - | умножение с повышенной точностью вещественной симметричной матрицы, заданной в компактной форме, на вектор; |
| AM16C - | умножение эрмитовой матрицы, заданной в компактной форме, на комплексный вектор. |
Вызываемые подпрограммы: нет.
Замечания по использованию
| 1. |
В подпрограмме АМ16D параметры А, B, C имеют тип DОUВLЕ РRЕСISIОN. | |
| 2. | В подпрограмме AM16C параметры А, B, C имеют тип СОМРLЕХ. |
DIMENSION A(10), B(4), C(4)
REAL A, B, C
DATA A /1., 2., 3., 4., 5., 6., 7., 8., 9., 10./
DATA B /4., 3., 2., 1./
N = 4
CALL AM16R (A, B, C, N)
Результат: С = ( 25., 35., 52., 80. )