|
Текст подпрограммы и версий ( Фортран ) av13r.zip av13d.zip av13c.zip |
Тексты тестовых примеров ( Фортран ) tav13r.zip tav13d.zip tav13c.zip |
|
Текст подпрограммы и версий ( Си ) av13r_c.zip av13d_c.zip av13c_c.zip |
Тексты тестовых примеров ( Си ) tav13r_c.zip tav13d_c.zip tav13c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) av13r_p.zip av13e_p.zip av13c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav13r_p.zip tav13e_p.zip tav13c_p.zip |
Умножение скаляра на вектор и сложение результата с другим вектором.
Подпрограмма АV13R выполняет умножение скаляра на n - мерный вектор и прибавление к результату другого n - мерного вектора по формуле:
A X + Y = (A x1 + y1 , A x2 + y2 , ... , A xn + yn) = Y
Векторы X и Y не обязательно должны занимать последовательные слова памяти машины и могут располагаться в памяти с некоторыми постоянными интервалами между компонентами, которые называются параметрами приращения.
Эти параметры могут быть меньше нуля, если обработка компонент вектора должна производиться в обратном порядке.
В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 4.
SUBROUTINE AV13R (N, SA, SX, INCX, SY, INCY, IERR)
Параметры
| N - | размерность векторов (тип: целый); |
| SA - | скаляр, который умножается на заданный вектор (тип: вещественный); |
| SX, SY - | вещественные массивы длины N * | INСХ | и N * | INСY | соответственно, содержащие данные векторы; |
|
INCX - INCY | параметры приращения, задающие расположение векторов в массивах SХ и SУ соответственно (тип: целый); |
| IERR - | целая переменная, указывающая характер ошибки; при этом: |
| IЕRR=65 - | когда N ≤ 0 . |
Версии
| AV13D - | векторы и скаляр заданы с удвоенной точностью. |
| AV13C - | векторы и скаляр заданы комплексными числами. |
Вызываемые подпрограммы
| UTAV10 - | подпрограмма выдачи диагностических сообщений при работе подпрограмм АV13R и АV13С. |
| UTAV11 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы АV13D. |
Замечания по использованию
|
В подпрограмме АV13D одномерные массивы, содержащие данные векторы и скаляр, обозначены DХ, DY и DА и имеют тип DОUВLЕ РRЕСISIОN. В подпрограмме АV13С одномерные массивы, содержащие заданные векторы и скаляр обозначены СХ, СY и СА и имеют тип СОМРLЕХ. |
DIMENSION SX(7), SY(7)
DATA SX /1., 1., 1., 1., 1., 1., 1./, SY /2., 2., 2., 2., 2., 2., 2./
N = 4
INCX = 2
INCY = 2
IERR = 0
SA = 2.
CALL AV13R (N, SA, SX, INCX, SY, INCY, IERR)
Результаты: SY = (4., 2., 4., 2., 4., 2., 4.) , IERR = 0