%N expun %F $MIR/src/subs/expun.for
%D Find exponential and don't underflow
%P nebk
%: utilities
%B
      real function ExpUn (x)

      implicit none
      real x

 Find the exponential of a number but try to avoid underflow messages

  Input
    x     r     Argument
