|
Текст подпрограммы и версий ( Фортран ) av15r.zip av15d.zip av15c.zip |
Тексты тестовых примеров ( Фортран ) tav15r.zip tav15d.zip tav15c.zip |
|
Текст подпрограммы и версий ( Си ) av15r_c.zip av15d_c.zip av15c_c.zip |
Тексты тестовых примеров ( Си ) tav15r_c.zip tav15d_c.zip tav15c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) av15r_p.zip av15e_p.zip av15c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav15r_p.zip tav15e_p.zip tav15c_p.zip |
Умножение вектора на скаляр.
Подпрограмма АV15R выполняет умножение вектора на скаляр по формуле:
AX = ( AX1, AX2, ... , AXn )
Вектор X не обязательно должен занимать последовательные слова памяти машины и может располагаться в памяти с некоторыми постоянными интервалами, которые называются параметром приращения. Этот параметр может быть меньше нуля, если обработка компонент вектора должна проводиться в обратном порядке. В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 5.
SUBROUTINE AV15R (N, SA, SX, INCX, IERR)
Параметры
| N - | размерность вектора (тип: целый); |
| SA - | скалярный множитель (тип: вещественный); |
| SX - | вещественный одномерный массив длины N, содержащий заданный вектор; на выходе содержит результирующий вектор; |
| INCX - | параметр приращения, задающий расположение вектора в массиве SХ (тип: целый); |
| IERR - | целая переменная, указывающая характер ошибки; при этом: |
| IЕRR=65 - | когда N ≤ 0 . |
Версии
| AV15D - | вычисление произведения вектора, заданного с двойной точностью, на скаляр. |
| AV15C - | вычисление произведения комплексного вектора на скаляр. |
Вызываемые подпрограммы
| UTAV10 - | подпрограмма выдачи диагностических сообщений при работе подпрограмм АV15R и АV15С. |
| UTAV11 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы АV15D. |
Замечания по использованию
|
В подпрограмме АV15D одномерный массив обозначен DХ и имеет тип DОUВL РRЕСISIОN. В подпрограмме АV15С одномерный массив обозначен СХ и имеет тип СОМРLЕХ. |
DIMENSION SX(3)
DATA SX /1.0, 1.0, 1.0/
N = 3
INCX = 1
SA = 2.
IERR = 0
CALL AV15R (N, SA, SX, INCX, IERR)
Результаты: SX = (2.0, 2.0, 2.0) , IERR = 0