EXPONENT intrinsic function
Standard: F77 F90 F95 F2003 F2008
  Example Program

X : Real, any kind;

Result: Integer, default kind.

Returns the exponent of X in the real model for that kind of floating-point number. If the value of X is representable in that model, the result satisfies the relationship X = FRACTION(X)*(REAL(RADIX(X),KIND(X))**EXPONENT(X), or if X is an IEEE infinity or NaN, the result is equal to HUGE(0). Note that if X is double-double precision, the result of EXPONENT(X) is accurate but FRACTION(X) might not be.

Like many intrinsic functions, this is elemental; the result has the same shape as X, with the operation being applied elementwise.

DIGITS intrinsic function, FRACTION intrinsic function, MAXEXPONENT intrinsic function, MINEXPONENT intrinsic function, RADIX intrinsic function, REAL type, SET_EXPONENT intrinsic function.