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_setexpreal::x=178.1387e-4integer::i=17print*,set_exponent(x,i),fraction(x)*radix(x)**iendprogram