SET_EXPONENT— Set the exponent of the model
SET_EXPONENT(X, I) returns the real number whose fractional part
is that that of X and whose exponent part is I.
Fortran 95 and later
RESULT = SET_EXPONENT(X, I)
|X||Shall be of type |
|I||Shall be of type |
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;
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