The GNU Fortran Compiler: EXPONENT

Next: EXTENDS_TYPE_OF, Previous: EXP, Up: Intrinsic Procedures [Contents][Index]

### 8.81 `EXPONENT` — Exponent function

Description:

  `EXPONENT(X)` returns the value of the exponent part of X. If X is zero the value returned is zero.

Standard:

  Fortran 95 and later

Class:

  Elemental function

Syntax:

  `RESULT = EXPONENT(X)`

Arguments:

  X | The type shall be `REAL`.

Return value:

  The return value is of type default `INTEGER`.

Example:

      program test_exponent
        real :: x = 1.0
        integer :: i
        i = exponent(x)
        print *, i
        print *, exponent(0.0)
      end program test_exponent