Next: SHAPE, Previous: SELECTED_REAL_KIND, Up: Intrinsic Procedures

`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`.*Standard*:- F95 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