|
Текст подпрограммы и версий ( Фортран ) ame3r.zip , ame3d.zip |
Тексты тестовых примеров ( Фортран ) tame3r.zip , tame3d.zip |
|
Текст подпрограммы и версий ( Си ) ame3r_c.zip , ame3d_c.zip |
Тексты тестовых примеров ( Си ) tame3r_c.zip , tame3d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) ame3r_p.zip , ame3e_p.zip |
Тексты тестовых примеров ( Паскаль ) tame3r_p.zip , tame3e_p.zip |
Копирование разреженной матрицы, заданной в произвольном строчном формате.
Подпрограмма AME3R выполняет копирование разреженной матрицы A с NR строками, заданной в произвольном строчном представлении, в массивы, определяющие то же самое строчное представление матрицы B.
SUBROUTINE AME3R (IA, JA, AN, NR, IB, JB, BN)
Параметры
|
IA, JA - AN | заданные портрет и ненулевые элементы разреженной матрицы A в произвольном строчном формате; |
| NR - | число строк матриц A и B (тип: целый); |
|
IB, JB - BN | заданные портрет и массив для ненулевых элементов матрицы B в том же самом строчном формате. |
Версии:
| AME3D - | копирование разреженной матрицы, заданной в произвольном строчном формате, в режиме удвоенной точности; при этом параметры AN и BN должны иметь тип DOUBLE PRECISION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION IA(5), JA(6), AN(6), IB(5), JB(6), BN(6)
DATA IA /1, 4, 4, 6, 7/,
* JA /1, 5, 4, 4, 2, 1/,
* AN /1., 1., 1., 1., 1., 1./
NR = 4
CALL AME3R (IA, JA, AN, NR, IB, JB, BN)
Результаты:
IB = ( 1, 4, 4, 6, 7 )
JB = ( 1, 5, 4, 4, 2, 1 )
BN = ( 1, 1, 1, 1, 1, 1 )