SET_EXPONENT(3f)

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

AUTHOR

This information was taken from the GFortran documentation (https://gcc.gnu.org/onlinedocs/gcc-5.3.0/gfortran/) and converted to a manpage by AstroFloyd (http://astrofloyd.org).