SET_EXPONENT(X, I)
returns the real number whose fractional part is that that of X and whose exponent part is I.
Fortran 90 and later
Elemental function
RESULT = SET_EXPONENT(X, I)
X | Shall be of type REAL . |
I | Shall be of type INTEGER . |
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
.
PROGRAM test_setexp REAL :: x = 178.1387e-4 INTEGER :: i = 17 PRINT *, SET_EXPONENT(x, i), FRACTION(x) * RADIX(x)**i END PROGRAM
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-10.2.0/gfortran/SET_005fEXPONENT.html