FRACTION (The GNU Fortran Compiler)

### 8.122 `FRACTION` — Fractional part of the model representation ¶

Synopsis:

  `Y = FRACTION(X)`

Description:

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

Class:

  Elemental function

Arguments:

  X | The type of the argument shall be a `REAL`.

Return value:

  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 * REAL(RADIX(X))**(-EXPONENT(X))`.

Example:

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

Standard:

  Fortran 90 and later