Elemental Intrinsic Function (Specific): Selects the left 64 bits after shifting a 128-bit integer value to the right.
Syntax
result = DSHIFTR (ileft, iright, ishift)
ileft
(Input) INTEGER(8).
iright
(Input) INTEGER(8).
ishift
(Input) INTEGER(8). Must be nonnegative and less than or equal to 64. This is the shift count.
Results
The result type is INTEGER(8). The result value is the 64-bit value starting at bit 64 + ishift of the 128-bit concatenation of the values of ileft and iright.
Example
Consider the following:
INTEGER(8) ILEFT / Z'111122221111222' /
INTEGER(8) IRIGHT / Z'FFFFFFFFFFFFF' /
PRINT *, DSHIFTR (ILEFT, IRIGHT, 16_8) ! prints 1306606910610341887