Текст подпрограммы и версий ( Фортран )
av14r.zip  av14d.zip  av14c.zip  		Тексты тестовых примеров ( Фортран )
tav14r.zip  tav14d.zip  tav14c.zip 
Текст подпрограммы и версий ( Си )
av14r_c.zip  av14d_c.zip  av14c_c.zip  		Тексты тестовых примеров ( Си )
tav14r_c.zip  tav14d_c.zip  tav14c_c.zip 
Текст подпрограммы и версий ( Паскаль )
av14r_p.zip  av14e_p.zip  av14c_p.zip  		Тексты тестовых примеров ( Паскаль )
tav14r_p.zip  tav14e_p.zip  tav14c_p.zip 

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

Назначение

Перемена местами в памяти ЭВМ двух вещественных векторов.

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

Подпрограмма АV14R меняет местами два вещественных n - мерных вектора: 

     X = ( x1 , x2 , ... , xn )    и   Y = ( y1 , y2 , ... , yn )

Векторы X и Y не обязательно должны занимать последовательные слова памяти машины и могут располагаться в памяти с некоторыми постоянными интервалами между компонентами, которые называются параметрами приращения.

Эти параметры могут быть меньше нуля, если обработка компонент вектора должна производиться в обратном порядке.

В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 3.

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

    SUBROUTINE  AV14R (N, SX, INCX, SY, INCY, IERR) 
   Параметры
N - размерность векторов (тип: целый);
SX, SY - вещественные массивы длиной N * | INСХ | и N * |INСY | соответственно, содержащие данные векторы;
         INCX -
         INCY   		параметры приращения, задающие векторы в массивах SХ и SY соответственно (тип: целый);
IERR - целая переменная, указывающая характер ошибки; при этом:
IЕRR=65 - когда N ≤ 0. 
   Версии
AV14D - перемена местами вещественных векторов, заданных с удвоенной точностью.
AV14C - перемена местами двух комплексных векторов. 
   Вызываемые подпрограммы
UTAV10 - подпрограмма выдачи диагностических сообщений при работе подпрограмм АV14R и АV14С.
UTAV11 - подпрограмма выдачи диагностических сообщений при работе подпрограммы АV14D. 
   Замечания по использованию
 

В подпрограмме АV14D одномерные массивы, содержащие заданные векторы, обозначены DХ и DY и имеют тип DОUВLЕ РRЕСISIОN.

В подпрограмме АV14С одномерные массивы, содержащие заданные векторы, обозначены СХ и СY и имеют тип СОМРLЕХ.

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

          DIMENSION SX(11), SY(11)
          DATA SX /1., 0., 1., 0., 1., 0., 1., 0., 1., 0., 1./
          DATA SY /2., 0., 2., 0., 2., 0., 2., 0., 2., 0., 2./
          INCX = 2
          INCY = 2
          IERR = 0
          N = 6
          CALL AV14R (N, SX, INCX, SY, INCY, IERR)

Результаты:

          SX  =  2., 0., 2., 0., 2., 0., 2., 0., 2., 0., 2.          
          SY  =  1., 0., 1., 0., 1., 0., 1., 0., 1., 0., 1. 
          
          IERR  =  0