Текст подпрограммы и версий ( Фортран )
ammer.zip , ammed.zip , ammec.zip 		Тексты тестовых примеров ( Фортран )
tammer.zip , tammed.zip , tammec.zip
Текст подпрограммы и версий ( Си )
ammer_c.zip , ammed_c.zip , ammec_c.zip 		Тексты тестовых примеров ( Си )
tammer_c.zip , tammed_c.zip , tammec_c.zip
Текст подпрограммы и версий ( Паскаль )
ammer_p.zip , ammee_p.zip , ammec_p.zip 		Тексты тестовых примеров ( Паскаль )
tammer_p.zip , tammee_p.zip , tammec_p.zip

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

Назначение

Умножение ленточной матрицы, заданной в компактной форме, на прямоугольную матрицу.

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

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

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

    SUBROUTINE  AMMER (A, N, NLA, NUA, B, M, C) 
   Параметры
A - вещественный двумерный массив размера N* (NLА+NUА+1), в котором задается ленточная матрица А в компактной форме;
N - заданный порядок матрицы А (тип: целый);
   NLA -
   NUA   		заданное число нижних и верхних ко - диагоналей матрицы А соответственно (тип: целый);
B - вещественный двумерный массив размера N*М, в котором задается матрица B;
M - заданное число столбцов матрицы B (тип: целый);
C - вещественный двумерный массив размера N*М, в котором запоминается матрица произведения. 
   Версии
AMMED - умножение с повышенной точностью ленточной матрицы, заданной в компактной форме, на прямоугольную матрицу.
AMMEC - умножение ленточной комплексной матрицы, заданной в компактной форме, на прямоугольную комплексную матрицу. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
 

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

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

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

          DIMENSION  A(5, 4), B(5, 3), C(5, 3)
          DATA  A /2*0.0, 3*1.0, 0.0, 13*1.0, 0.0/
          DATA  B /15*1.0/
          N = 5
          NLA = 2
          NUA = 1
          M = 3
          CALL  AMMER (A, N, NLA, NUA, B, M, C)

Результаты:

                |  2.  2.  2. |
                |  3.  3.  3. |
     C  =    |  4.  4.  4. |
                |  4.  4.  4. |
                |  3.  3.  3. |