|
Текст подпрограммы и версий ( Фортран ) am06r.zip , am06d.zip , am06c.zip |
Тексты тестовых примеров ( Фортран ) tam06r.zip , tam06d.zip , tam06c.zip |
|
Текст подпрограммы и версий ( Си ) am06r_c.zip , am06d_c.zip , am06c_c.zip |
Тексты тестовых примеров ( Си ) tam06r_c.zip , tam06d_c.zip , tam06c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) am06r_p.zip , am06e_p.zip , am06c_p.zip |
Тексты тестовых примеров ( Паскаль ) tam06r_p.zip , tam06e_p.zip , tam06c_p.zip |
Умножение вектора на прямоугольную матрицу.
Вычисляется призведение С = А В вектора А длины N и прямоугольной матрицы B размера N * М. Результатом этого произведения является вектор длины М.
SUBROUTINE AM06R (A, B, C, N, M)
Параметры
| A - | одномерный массив длины N, в котором задается исходный вектор А (тип: вещественный); |
| B - | двумерный массив размера N * М, в котором задается исходная матрица B (тип: вещественный); |
| C - | одномерный массив длины М, в котором запоминается результат произведения (тип: вещественный); |
| N, M - | число строк и столбцов матрицы B (тип: целый). |
Версии
| AM06D - | умножение вектора на прямоугольную матрицу с повышенной точностью; |
| AM06C - | умножение комплексного вектора на комплексную прямоугольную матрицу; |
Вызываемые подпрограммы: нет.
Замечания по использованию
| 1. |
В подпрограмме АМ06D параметры А, B, C имеют тип DОUВLЕ РRЕСISIОN. | |
| 2. | В подпрограмме AM05C параметры А, B, C имеют тип СОМРLЕХ. |
DIMENSION A(3), B(3, 4), C(4)
DATA A /1., 0., 1./
DATA B /1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 12./
N = 3
M = 4
CALL AM06R (A, B, C, N, M)
Результат: С = ( 4., 10., 16., 22. )