FRACTION(X)

Purpose

Returns the fractional part of the model representation of the argument value.

Class

Elemental function

Argument type and attributes

X
An INTENT(IN) REAL

Result type and attributes

Same as X.

Result value

IBM extension begins The result is:
X * (2.0-EXPONENT(X))
IBM extension ends

Examples

IBM extension begins
FRACTION(10.2) =2-4 * 10.2 approximately equal to 0.6375
IBM extension ends