SET_EXPONENT — Set the exponent of the model

Description

SET_EXPONENT(X, I) returns the real number whose fractional part is that that of X and whose exponent part is I.

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

Standard

Fortran 95 and later

Class

Elemental function