FRACTION — Fractional part of the model representation#

FRACTION(X)#

FRACTION(X) returns the fractional part of the model representation of X.

Parameters: X – The type of the argument shall be a REAL.
Returns: The return value is of the same type and kind as the argument. The fractional part of the model representation of X is returned; it is X * RADIX(X)**(-EXPONENT(X)).

Standard:

Fortran 90 and later

Class:

Elemental function

Syntax:

Y = FRACTION(X)

Example:

program test_fraction
  real :: x
  x = 178.1387e-4
  print *, fraction(x), x * radix(x)**(-exponent(x))
end program test_fraction