#
Fortran Wiki

fraction

## Description

`fraction(x)`

returns the fractional part of the model representation of `x`

.

## Standard

Fortran 95 and later

## Class

Elemental function

## Syntax

`y = fraction(x)`

## 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 * radix(x)**(-exponent(x))`

.

## Example

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

Revised on April 30, 2009 22:46:50
by

Jason Blevins
(71.70.142.190)
(679 characters / 0.0 pages)