8.233 RSHIFT — Сдвиг битов вправо

RSHIFT возвращает значение, соответствующее I, со всеми битами, сдвинутыми вправо на SHIFT позиций. SHIFT должно быть неотрицательным и меньше или равно BIT_SIZE(I), в противном случае значение результата не определено. Биты, сдвинутые из правого конца, теряются. Заполнение выполняется арифметически: биты, сдвинутые влево, равны самому левому биту, который в представлении со знаком минус является знаковым битом.

Эта функция устарела и заменена на SHIFTA встроенную функцию, которая является стандартной в Fortran 2008 и более поздних версиях.

Расширение GNU

Элементарная функция

RESULT = RSHIFT(I, SHIFT)

Возвращаемое значение имеет тип INTEGER и тот же вид, что и I.

ISHFT — Сдвиг битов, ISHFTC — Циклический сдвиг битов, LSHIFT — Сдвиг битов влево, SHIFTA — Сдвиг вправо с заполнением, SHIFTR — Сдвиг вправо, SHIFTL — Сдвиг влево