8.72 EOSHIFT — Элементы сдвига конца массива

Описание:

EOSHIFT(ARRAY, SHIFT[, BOUNDARY, DIM]) выполняет сдвиг элементов ARRAY вдоль измерения DIM. Если DIM опущено, оно принимается равным 1. DIM — скаляр типа INTEGER в диапазоне 1 ≤ DIM ≤ n, где n — ранг ARRAY. Если ранг ARRAY равен единице, все элементы ARRAY сдвигаются на SHIFT позиций. Если ранг больше единицы, то все полные одномерные сегменты ARRAY вдоль заданного измерения сдвигаются. Элементы, выходящие за один конец каждого одномерного сегмента, отбрасываются. Если BOUNDARY присутствует, соответствующее значение из BOUNDARY копируется на другом конце. Если BOUNDARY отсутствует, то следующее копируется в зависимости от типа ARRAY.

Тип массива	Значение границы
Числовой	0 типа и вида ARRAY.
Логический	.FALSE..
Символьный(len)	len пробелов.

Стандарт:

Fortran 95 и новее

Класс:

Функция преобразования

Синтаксис:

RESULT = EOSHIFT(ARRAY, SHIFT [, BOUNDARY, DIM])

Аргументы:

ARRAY	Может быть любого типа, не скаляр.
SHIFT	Тип должен быть INTEGER.
BOUNDARY	Того же типа, что и ARRAY.
DIM	Тип должен быть INTEGER.

Возвращаемое значение:

Возвращает массив того же типа и ранга, что и аргумент ARRAY.

Пример:

program test_eoshift
    integer, dimension(3,3) :: a
    a = reshape( (/ 1, 2, 3, 4, 5, 6, 7, 8, 9 /), (/ 3, 3 /))
    print '(3i3)', a(1,:)
    print '(3i3)', a(2,:)
    print '(3i3)', a(3,:)
    a = EOSHIFT(a, SHIFT=(/1, 2, 1/), BOUNDARY=-5, DIM=2)
    print *
    print '(3i3)', a(1,:)
    print '(3i3)', a(2,:)
    print '(3i3)', a(3,:)
end program test_eoshift