The Fraction function returns the fractional part of the representation of a REAL number.

## Syntax

FRACTION (x)

*x* is an INTENT(IN) scalar or array of type REAL.

The result is of type REAL and the same kind as *x*. Its value is the fraction part of the physical representation of *x*.

## Example

real ::x.4.3 write(*,*)x.fraction(x) ! writes 4.300000 0.5375000 write(*,*) scale(fraction(x),exponent(x)) ! writes 4.300000