|
Текст подпрограммы и версий ( Фортран ) amtcr.zip |
Тексты тестовых примеров ( Фортран ) tamtcr.zip |
|
Текст подпрограммы и версий ( Си ) amtcr_c.zip |
Тексты тестовых примеров ( Си ) tamtcr_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amtcr_p.zip |
Тексты тестовых примеров ( Паскаль ) tamtcr_p.zip |
Символическое транспонирование прямоугольной разреженной матрицы, заданной в формате RR (C) U
Описание форматов RR (C) U и RR (C) O приведены в описании подпрограммы AMTSR .
Данная подпрограмма по портрету исходной матрицы A вычисляет портрет транспонированной матрицы AT и представляет его в формате RR (C) O.
С.Писсанецки. Технология разреженных матриц. - М.: Мир, 1988
SUBROUTINE AMTCR (IA, JA, N, M, IAT, JAT)
Параметры
| IA, JA - | заданный портрет транспонируемой прямоугольной матрицы A в формате RR (C) U; |
| N - | заданное число строк транспонируемой матрицы A (тип: целый); |
| M - | заданное число столбцов транспонируемой матрицы A (тип: целый); |
|
IAT - JAT | вычисленный портрет транспонированной матрицы A в формате RR (C) O |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
INTEGER IA(6), JA(13), IAT(7), JAT(13)
DATA IA /1, 4, 6, 8, 11, 14/,
* JA /5, 6, 3, 4, 1, 3, 4, 4, 3, 1, 2, 6, 5/
N = 5
M = 6
CALL AMTCR (IA, JA, N, M, IAT, JAT)
Результаты:
IAT = (1, 3, 4, 7, 10, 12, 14)
JAT = (2, 4, 5, 1, 3, 4, 2, 3, 4, 1, 5, 1, 5)