intrinsic_set_exponent.f90 1.79 KB