Next: SHAPE, Previous: SELECTED_REAL_KIND, Up: Intrinsic Procedures
SET_EXPONENT
— Set the exponent of the modelSET_EXPONENT(X, I)
returns the real number whose fractional part
is that that of X and whose exponent part is I.
RESULT = SET_EXPONENT(X, I)
X | Shall be of type REAL .
|
I | Shall be of type INTEGER .
|
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