EXPONENT intrinsic function
Standard: F77 F90 F95 F2003 F2008
  Example Program
<Syntax>
EXPONENT ( X )

X : Real, any kind;

Result: Integer, default kind.
<Semantics>

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.

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