DSHIFTR — Combined right shiftDSHIFTR(I, J, SHIFT) combines bits of I and J. The
leftmost SHIFT bits of the result are the rightmost SHIFT
bits of I, and the remaining bits are the leftmost bits of
J.
     RESULT = DSHIFTR(I, J, SHIFT)
     | I | Shall be of type INTEGERor a BOZ constant. | 
| J | Shall be of type INTEGERor a BOZ constant. 
If both I and J have integer type, then they shall have
the same kind type parameter. I and J shall not both be
BOZ constants. | 
| SHIFT | Shall be of type INTEGER. It shall
be nonnegative.  If I is not a BOZ constant, then SHIFT
shall be less than or equal toBIT_SIZE(I); otherwise,
SHIFT shall be less than or equal toBIT_SIZE(J). | 
INT to an integer type with the
kind type parameter of the other.