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

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

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

Расширение GNU

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

RESULT = RSHIFT(I, SHIFT)

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

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