|
Текст подпрограммы и версий ( Фортран ) amz8r.zip , amz8d.zip |
Тексты тестовых примеров ( Фортран ) tamz8r.zip , tamz8d.zip |
|
Текст подпрограммы и версий ( Си ) amz8r_c.zip , amz8d_c.zip |
Тексты тестовых примеров ( Си ) tamz8r_c.zip , tamz8d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amz8r_p.zip , amz8e_p.zip |
Тексты тестовых примеров ( Паскаль ) tamz8r_p.zip , tamz8e_p.zip |
Преобразование симметричной разреженной матрицы из формата RR (С) U в формат RR (U) U.
Описание форматов RR (С) U и RR (U) U приведены в описаниях подпрограмм AMTSR и AM21R .
Подпрограмма AMZ8R предназначена для формирования компактного представления симметричной матрицы А порядка N, заданной в формате RR (С) U, в виде верхнего треугольника и диагонали, т.е. в формате RR (U) U. Новое представление матрицы А формируется в тех же массивах, в которых задана исходная матрица.
С.Писсанецки. Технология разреженных матриц. - М.: Мир, 1988
SUBROUTINE AMZ8R ( IA, JA, AN, AD, N)
Параметры
| IA,JA,AN - | на входе: заданные портрет и ненулевые элементы матрицы А в формате RR (С) U; на выходе: заданные портрет и ненулевые элементы верхнего треугольника матрицы А в формате RR (U) U; |
| АD - | вещественный одномерный массив длины N, содержащий на выходе диагональные элементы матрицы А; |
| N - | заданный порядок матрицы А (тип: целый); |
Версии
| AMZ8D - | преобразование симметричной разреженной матрицы из формата RR (С) U в формат RR (U) U в режиме удвоенной точности; при этом параметры AN и AD должны иметь тип DOUBLE PRECISION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION IA(5), JA(9), AN(9), AD(4)
DATA IA /1, 3, 4, 7, 10/
DATA JA /4, 1, 3, 4, 2, 3, 4, 3, 1/
DATA AN /1., 1., 1., 1., 1., 1., 1., 1., 1./
N = 4
CALL AMZ8R (IA, JA, AN, AD, N)
Результаты:
IA = ( 1, 2, 3, 4, 4 )
JA = ( 4, 3, 4, 4, 2, 3, 4, 3, 1 )
AN = ( 1, 1, 1, 1, 1, 1, 1, 1, 1 )
AD = ( 1, 0, 1, 1 )