#
Fortran Wiki

set_exponent

## Description

`set_exponent(x, i)`

returns the real number whose fractional part is that that of `x`

and whose exponent part is `i`

.

## Standard

Fortran 95 and later

## Class

Elemental function

## Syntax

`result = set_exponent(x, i)`

## Arguments

`x`

- Shall be of type `real`

.
`i`

- Shall be of type `integer`

.

## Return value

The return value is of the same type and kind as `x`

. The real number whose fractional part is that that of `x`

and whose exponent part if `i`

is returned; it is `fraction(x) * radix(x)**i`

.

## Example

```
program test_setexp
real :: x = 178.1387e-4
integer :: i = 17
print *, set_exponent(x, i), fraction(x) * radix(x)**i
end program
```

Revised on April 30, 2009 19:31:18
by

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