8.59 CSHIFT — Циклический сдвиг элементов массива

Описание:

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

Стандарт:

Fortran 95 и выше

Класс:

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

Синтаксис:

RESULT = CSHIFT(ARRAY, SHIFT [, DIM])

Аргументы:

ARRAY	Должен быть массивом любого типа.
SHIFT	Тип должен быть INTEGER.
DIM	Тип должен быть INTEGER.

Значение результата:

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

Пример:

program test_cshift
    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 = cshift(a, SHIFT=(/1, 2, -1/), DIM=2)
    print *
    print '(3i3)', a(1,:)
    print '(3i3)', a(2,:)
    print '(3i3)', a(3,:)
end program test_cshift