9.80 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