ISHFTC — Shift bits circularly ¶ISHFTC returns a value corresponding to I with the
rightmost SIZE bits shifted circularly SHIFT places; that
is, bits shifted out one end are shifted into the opposite end.  A value
of SHIFT greater than zero corresponds to a left shift, a value of
zero corresponds to no shift, and a value less than zero corresponds to
a right shift.  The absolute value of SHIFT must be less than
SIZE.  If the SIZE argument is omitted, it is taken to be
equivalent to BIT_SIZE(I).
Fortran 90 and later, has overloads that are GNU extensions
Elemental function
RESULT = ISHFTC(I, SHIFT [, SIZE])
| I | The type shall be INTEGER. | 
| SHIFT | The type shall be INTEGER. | 
| SIZE | (Optional) The type shall be INTEGER;
the value must be greater than zero and less than or equal toBIT_SIZE(I). | 
The return value is of type INTEGER and of the same kind as
I.
| Name | Argument | Return type | Standard | 
|---|---|---|---|
| ISHFTC(A) | INTEGER A | INTEGER | Fortran 90 and later | 
| BSHFTC(A) | INTEGER(1) A | INTEGER(1) | GNU extension | 
| IISHFTC(A) | INTEGER(2) A | INTEGER(2) | GNU extension | 
| JISHFTC(A) | INTEGER(4) A | INTEGER(4) | GNU extension | 
| KISHFTC(A) | INTEGER(8) A | INTEGER(8) | GNU extension |