Текст подпрограммы и версий ( Фортран )
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 

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

Назначение

Пересылка вектора на место другого вектора.

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

Подпрограмма А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