Текст подпрограммы и версий ( Фортран )
ama4r.zip , ama4d.zip 		Тексты тестовых примеров ( Фортран )
tama4r.zip , tama4d.zip
Текст подпрограммы и версий ( Си )
ama4r_c.zip , ama4d_c.zip 		Тексты тестовых примеров ( Си )
tama4r_c.zip , tama4d_c.zip
Текст подпрограммы и версий ( Паскаль )
ama4r_p.zip , ama4e_p.zip 		Тексты тестовых примеров ( Паскаль )
tama4r_p.zip , tama4e_p.zip

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

Назначение

Сложение ленточной и ленточной симметричной матриц, заданных в компактной форме.

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

АМА4R вычисляет сумму ленточной матрицы  А порядка  N, заданной в компактной форме, и ленточной симметричной матрицы  B того же порядка, заданной также в компактной форме. Результатом этого сложения является ленточная матрица  C порядка  N с  max (NLА, NС) нижними и  max (NUА, NС) верхними ко - диагоналями. Матрица  C запоминается в компактной форме.

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

    SUBROUTINE  AMA4R (A, N, NLA, NUA, B, NC, C) 
   Параметры
A - вещественный двумерный массив размера N на (NLА + NUА + 1), в котором в компактной форме задается ленточная матрица  A;
N - заданный порядок матриц  А и  B (тип: целый);
      NLA -
      NUA   		заданное число нижних и верхних ко - диагоналей матрицы  А соответственно (тип: целый);
B - вещественный двумерный массив размера N на (NС + 1), в котором в компактной форме задается ленточная симметричная матрица  B;
NC - заданное число ко - диагоналей матрицы  B (тип: целый);
C - вещественный двумерный массив размера N на (max (NLА, NС) + max (NUА, NС) + 1), в котором в компактной форме запоминается ленточная матрица сложения. 
   Версии
AMA4D - сложение с повышенной точностью ленточной матрицы и ленточной симметричной матрицы, заданных в компактной форме. 
   Вызываемые подпрограммы:  нет. 
   Замечания по использованию
  В подпрограмме АМА4D параметры А, B и C должны иметь тип DОUВLЕ РRЕСISIОN.

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

       DIMENSION  A(5, 4), B(5, 2), C(5, 4)
       DATA  A /2*0.0, 3*1.0, 0.0, 13*1.0, 0.0/
       DATA  B /0.0, 9*1.0/
       N = 5
       NLA = 2
       NUA = 1
       NC = 1
       CALL  AMA4R (A, N, NLA, NUA, B, NC, C)

Результаты:

                | 0.0   0.0   2.0   2.0 |
                | 0.0   2.0   2.0   2.0 |
       C  =  | 1.0   2.0   2.0   2.0 |
                | 1.0   2.0   2.0   2.0 |
                | 1.0   2.0   2.0   0.0 |