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

      implicit none
      double precision x

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

  Input
    x     d     Argument
