HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 573
SIZE (optional) must be of type integer. The value of SIZE must be positive and must not
exceed BIT_SIZE(I). If SIZE is absent, it is as if it were present with the
value of BIT_SIZE(I).
Result type/
type parameters
Same as I.
Result value
The result has the value obtained by shifting the SIZE rightmost bits of I circularly by SHIFT
positions.
If SHIFT is positive, the shift is to the left; if SHIFT is negative, the shift is to the right; and if
SHIFT is zero, no shift is performed. No bits are lost. The unshifted bits are unaltered.
The model for the interpretation of an integer value as a sequence of bits is described in “The
Bit Model” on page 508.
Specific forms
HSHFTC,ISHFTC, JISHFTC, KISHFTC.
ISIGN(A, B)
Description
Absolute value of A times the sign of B.
Class
Elemental nonstandard function.
Arguments
A must be of type integer.
B must be of type integer with the same kind type parameter as A.
Result type/
type parameters
Same as A.