|
Текст подпрограммы и версий ( Фортран ) am20r.zip , am20d.zip |
Тексты тестовых примеров ( Фортран ) tam20r.zip , tam20d.zip |
|
Текст подпрограммы и версий ( Си ) am20r_c.zip , am20d_c.zip |
Тексты тестовых примеров ( Си ) tam20r_c.zip , tam20d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) am20r_p.zip , am20e_p.zip |
Тексты тестовых примеров ( Паскаль ) tam20r_p.zip , tam20e_p.zip |
Умножение заданного вектора - строки на прямоугольную разреженную матрицу, заданную в формате RR (C) U
Описание формата RR (C) U приведено в описании подпрограммы AMTSR .
Пусть заданы заполненный вектор - строка B длины N и прямоугольная разреженная матрица A размеров N на M в формате RR (C) U. Подпрограмма AM20R вычисляет заполненный вектор - строку C длины M, равный произведению вектора - строки B на матрицу A
С.Писсанецки. Технология разреженных матриц. - М.: Мир, 1988
SUBROUTINE AM20R ( IA, JA, AN, B, N, M, C)
Параметры
|
IA, JA - AN | заданные портрет и ненулевые элементы матрицы A в формате RR (C) U; |
| B - | вещественный одномерный массив длины N, содержащий компоненты заданного заполненного вектора - строки; |
| N - | заданное число строк матрицы A (тип: целый); |
| M - | заданное число столбцов матрицы A (тип: целый); |
| C - | вещественный одномерный массив длины M, содержащий компоненты результирующего вектора - строки |
Версии
| AM20D - | умножение заполненного вектора - строки на прямоугольную разреженную матрицу, заданную в формате RR (C) U, в режиме удвоенной точности; при этом параметры AN, B и C должны быть описаны в режиме DOUBLE PRECISION |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION IA(5), JA(10), AN(10), B(4), C(6)
DATA IA /1, 3, 7, 9, 11/,
* JA /5, 3, 4, 3, 1, 5, 1, 6, 4, 2/,
* AN /- 1., 2., 3., 3., 4., 7., - 2., - 1., 1., 1./,
* B /1., 1., 1., 1./
N = 4
M = 6
CALL AM20R (IA, JA, AN, B, N, M, C)
Результаты: C = ( 2, 1, 5, 4, 6, - 1 )