|
Текст подпрограммы и версий ( Фортран ) ama7r.zip |
Тексты тестовых примеров ( Фортран ) tama7r.zip |
|
Текст подпрограммы и версий ( Си ) ama7r_c.zip |
Тексты тестовых примеров ( Си ) tama7r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ama7r_p.zip |
Тексты тестовых примеров ( Паскаль ) tama7r_p.zip |
Символическое сложение двух прямоугольных разреженных матриц, заданных в формате RR (C) U.
Описания форматов RR (C) U и RR (C) O приведено в описании подпрограммы AMTSR .
Пусть заданы прямоугольные разреженные матрицы A и B размеров N на M в формате RR (C) U. Подпрограмма AMA7R вычисляет портрет матрицы C, равной A + B, формируемый в формате RR (C) U, даже если матрицы A и B заданы в формате RR (C) O.
С.Писсанецки. Технология разреженных матриц. - М.: Мир, 1988
SUBROUTINE AMA7R ( IA, JA, IB, JB, N, M, IC, JC, IX)
Параметры
| IA, JA - | заданный портрет матрицы A в формате RR (C) U; |
| IB, JB - | заданный портрет матрицы B в формате RR (C) U; |
| N - | заданное число строк матриц A и B (тип: целый); |
| M - | заданное число столбцов матриц A и B (тип: целый). |
| IC, JC - | полученный портрет матрицы C = A + B в формате RR (C) U; |
| IX - | целый массив длины M, используемый в подпрограмме в качестве рабочего |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION IA(5), JA(10), IB(5), JB(9), IC(5), JC(15), IX(6)
DATA IA /1, 3, 7, 9, 11/,
* JA /5, 3, 4, 3, 1, 5, 1, 6, 4, 2/,
* IB /1, 4, 5, 8, 10/,
* JB /1, 6, 3, 5, 4, 2, 1, 2, 3/
N = 4
M = 6
CALL AMA7R (IA, JA, IB, JB, N, M, IC, JC, IX)
Результаты:
IC = ( 1, 5, 9, 13, 16 )
JC = ( 5, 3, 1, 6, 4, 3, 1, 5, 1, 6, 4, 2, 4, 2, 3 )