Elemental Intrinsic Function (Specific): Selects the left 64 bits after shifting a 128-bit integer value to the left.
Syntax
result = DSHIFTL (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 128 - 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 *, DSHIFTL (ILEFT, IRIGHT, 16_8) ! prints 1306643199093243919