Текст подпрограммы и версий ( Фортран )
amz3r.zip , amz3d.zip , amz3c.zip 		Тексты тестовых примеров ( Фортран )
tamz3r.zip , tamz3d.zip , tamz3c.zip
Текст подпрограммы и версий ( Си )
amz3r_c.zip , amz3d_c.zip , amz3c_c.zip 		Тексты тестовых примеров ( Си )
tamz3r_c.zip , tamz3d_c.zip , tamz3c_c.zip
Текст подпрограммы и версий ( Паскаль )
amz3r_p.zip , amz3e_p.zip , amz3c_p.zip 		Тексты тестовых примеров ( Паскаль )
tamz3r_p.zip , tamz3e_p.zip , tamz3c_p.zip

Подпрограмма:  AMZ3R

Назначение

Преобразование ленточной матрицы, заданной в компактной форме, в полную форму представления.

Математическое описание

Ленточная матрица  А порядка  N с NUС верхними и NLС нижними ко - диагоналями, заданная в компактной форме, преобразуется в полную форму представления. Таким образом, АМZ3R выполняет действие, обратное по отношению к подпрограмме АМZ2R.

Использование 

    SUBROUTINE  AMZ3R (A, N, NUC, NLC, B) 
   Параметры
A - вещественный двумерный массив размера N на (NUС + 1 + NLС), в котором задается ленточная матрица в компактной форме представления;
N - порядок матрицы (тип: целый);
NUC - число верхних ко - диагоналей (тип: целый);
NLC - заданное число нижних ко - диагоналей (тип: целый);
B - двумерный массив размера N на N, в котором запоминается исходная ленточная матрица в полной форме. 
   Версии
AMZ3D - преобразование ленточной матрицы, заданной в компактной форме с удвоенной точностью, в полную форму представления.
AMZ3C - преобразование комплексной ленточной матрицы, заданной в компактной форме, в полную форму представления. 
   Вызываемые подпрограммы:  нет. 
   Замечания по использованию
 

Массив  B может занимать то же место в памяти, что и массив  А (это означает, что первый элемент массива  B может совпадать с первым элементом массива  А).

В подпрограмме АМZ3D параметры  А и  B должны иметь тип DОUВLЕ РRЕСISIОN.

В подпрограмме АМZ3С параметры  А и  B должны иметь тип СОМРLЕХ.

Пример использования 

       DIMENSION  A(5, 4), B(5, 5)
       DATA  A /0., 0., 3.1, 4.2, 5.3, 0., 2.1, 3.2, 4.3, 5.4, 1.1, 2.2, 3.3, 
     *                 4.4, 5.5, 1.2, 2.3, 3.4, 4.5, 0./
       N = 5
       NUC = 1
       NLC = 2
       CALL  AMZ3R (A, N, NUC, NLC, B)

Результаты:

       B  =  ( 1.1, 2.1, 3.1, 0., 0., 1.2, 2.2, 3.2, 4.2, 0., 0., 2.3, 3.3, 4.3, 
                  5.3, 0., 0., 3.4, 4.4, 5.4, 0., 0., 0., 4.5, 5.5 )