Текст подпрограммы и версий ( Фортран ) av17r.zip av17d.zip av17c.zip |
Тексты тестовых примеров ( Фортран ) tav17r.zip tav17d.zip tav17c.zip |
Текст подпрограммы и версий ( Си ) av17r_c.zip av17d_c.zip av17c_c.zip |
Тексты тестовых примеров ( Си ) tav17r_c.zip tav17d_c.zip tav17c_c.zip |
Текст подпрограммы и версий ( Паскаль ) av17r_p.zip av17e_p.zip av17c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav17r_p.zip tav17e_p.zip tav17c_p.zip |
Пересылка вектора на место другого вектора.
Подпрограмма АV17R пересылает компоненты n - мерного вектора x на место компонент n - мерного вектора y :
y = ( x1, x2, ..., xn )
Векторы x и y не обязательно должны занимать последовательные слова памяти машины и могут располагаться в памяти машины с некоторыми постоянными (для каждого вектора) интервалами, которые называются параметрами приращения.
Эти параметры могут быть меньше нуля, если обработка компонент вектора должна производиться в обратном порядке.
В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 7.
SUBROUTINE AV17R (N, SX, INCX, SY, INCY, IERR)
Параметры
N - | размерность векторов (тип: целый); |
SX, SY - | вещественные одномерные массивы длиной N * | INСХ | и N * | INСY | соответственно, содержащие заданные векторы; |
INCX - INCY | параметры приращения, задающие векторы в массивах SХ и SY соответственно (тип: целый); |
IERR - | целая переменная, указывающая характер ошибки; при этом: |
IЕRR=65 - | когда N ≤ 0 . |
Версии
AV17D - | пересылает один вещественный вектор в другой, когда оба вектора заданы с удвоенной точностью. |
AV17C - | пересылка одного комплексного вектора в другой. |
Вызываемые подпрограммы
UTAV10 - | подпрограмма выдачи диагностических сообщений при работе подпрограмм АV17R и АV17С. |
UTAV11 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы АV17D. |
Замечания по использованию
В подпрограмме АV17D одномерные массивы, содержащие данные векторы, обозначаются DХ и DY и имеют тип DОUВLЕ РRЕСISIОN. В подпрограмме АV17С одномерные массивы, содержащие данные векторы, обозначаются СХ и СY и имеют тип СОМРLЕХ. |
DIMENSION SX(7), SY(7) DATA SX /1., 2., 1., 2., 1., 2., 1./, SY /3., 0., 3., 0., 3., 0., 3./ N = 4 INCX = 2 INCY = 2 IERR = 0 CALL AV17R (N, SX, INCX, SY, INCY, IERR) Результаты: SY = (1., 0., 1., 0., 1., 0., 1.) , IERR = 0