Текст подпрограммы и версий ( Фортран ) amz4r.zip , amz4d.zip |
Тексты тестовых примеров ( Фортран ) tamz4r.zip , tamz4d.zip |
Текст подпрограммы и версий ( Си ) amz4r_c.zip , amz4d_c.zip |
Тексты тестовых примеров ( Си ) tamz4r_c.zip , tamz4d_c.zip |
Текст подпрограммы и версий ( Паскаль ) amz4r_p.zip , amz4e_p.zip |
Тексты тестовых примеров ( Паскаль ) tamz4r_p.zip , tamz4e_p.zip |
Преобразование полной симметричной ленточной матрицы в компактную форму представления.
АМZ4R преобразует полную симметричную ленточную матрицу А порядка N с NС ко - диагоналями в компактную форму представления. Тем самым, минимизируется расход памяти, требуемой на хранение симметричной ленточной матрицы.
SUBROUTINE AMZ4R (A, N, NC, B)
Параметры
A - | вещественный двумерный массив размера N на N, в котором задается симметричная ленточная матрица в полной форме; |
N - | заданный порядок матрицы (тип: целый); |
NC - | заданное число ко - диагоналей (тип: целый); |
B - | вещественный двумерный массив размера N на (NС + 1), в котором запоминается исходная симметричная ленточная матрица в компактной форме представления. |
Версии
AMZ4D - | преобразование полной симметричной ленточной матрицы, заданной с удвоенной точностью, в компактную форму представления. |
Вызываемые подпрограммы: нет.
Замечания по использованию
Массив B может занимать то же место в памяти, что и массив А (это означает, что первый элемент массива B может совпадать с первым элементом массива А). В подпрограмме АМZ4D параметры А и B должны иметь тип DОUВLЕ РRЕСISIОN. |
DIMENSION A(4, 4), B(4, 2) DATA A /1.1, 2.1, 0., 0., 1.2, 2.2, 3.2, 0., 0., 2.3, 3.3, 4.3, 0., * 0., 3.4, 4.4/ N = 4 NC = 1 CALL AMZ4R (A, N, NC, B) Результаты: В = ( 0., 2.1, 3.2, 4.3, 1.1, 2.2, 3.3, 4.4 )