|
Текст подпрограммы и версий ( Фортран ) am05r.zip , am05d.zip , am05c.zip |
Тексты тестовых примеров ( Фортран ) tam05r.zip , tam05d.zip , tam06c.zip |
|
Текст подпрограммы и версий ( Си ) am05r_c.zip , am05d_c.zip , am05c_c.zip |
Тексты тестовых примеров ( Си ) tam05r_c.zip , tam05d_c.zip , tam06c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) am05r_p.zip , am05e_p.zip , am05c_p.zip |
Тексты тестовых примеров ( Паскаль ) tam05r_p.zip , tam05e_p.zip , tam05c_p.zip |
Умножение прямоугольной матрицы на вектор.
Вычисляется произведение С = А В прямоугольной матрицы А размера N * М и вектора B длины М. Результатом этого произведения является вектор длины N.
SUBROUTINE AM05R (A, B, C, N, M)
Параметры
| A - | двумерный массив размера N * М, в котором задается исходная матрица А (тип: вещественный); |
| B - | одномерный массив длины М, в котором задается исходный вектор B - правый сомножитель произведения (тип: вещественный); |
| C - | одномерный массив длины N, в котором запоминается результат произведения (тип: вещественный); |
| N, M - | число строк и столбцов матрицы А (тип: целый). |
Версии
| AM05D - | умножение прямоугольной матрицы на вектор с повышенной точностью; |
| AM05C - | умножение комплексной прямоугольной матрицы на комплексный вектор; |
Вызываемые подпрограммы: нет.
Замечания по использованию
| 1. |
В подпрограмме АМ05D параметры А, B, C имеют тип DОUВLЕ РRЕСISIОN. | |
| 2. | В подпрограмме AM05C параметры А, B, C имеют тип СОМРLЕХ. |
DIMENSION A(4, 3), B(3), C(4)
DATA A /1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 12./
DATA B /1., 0., 1./
N = 4
M = 3
CALL AM05R (A, B, C, N, M)
Результат: С = ( 10., 12., 14., 16. )