DSHIFTR

Elemental Intrinsic Function (Specific): Selects the left 64 bits after shifting a 128-bit integer value to the right. This function cannot be passed as an actual argument.

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