

            dexp$m (2) --- calculate double precision exponential to the base e  04/27/83


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

          |      longreal function dexp$m (x)
          |      longreal x

          |      Library: vswtmath (Subsystem mathematical library)


          | _F_u_n_c_t_i_o_n

          |      This  function  raises  the  constant  eee to the power of the
          |      argument.  Arguments to the function must be in  the  closed
          |      interval  [-22802.46279888, 22623.630826296].  The condition
          |      SWT_MATH_ERROR$ is signalled if there is an argument  error.
          |      An  on-unit  can be established to deal with this error; the
          |      SWT Math Library contains a default  handler  named  'err$m'
          |      which  the  user may utilize.  If an error is signalled, the
          |      default function return value is zero.

          |      It should be noted that the  function  could  simply  return
          |      zero for sufficiently small arguments rather than signalling
          |      an   error   since   the  actual  function  value  would  be
          |      indistinguishable from zero to the precision of the machine.
          |      However, there is no mapping to zero in the actual function,
          |      and that is why the function signals an error in this case.


          | _I_m_p_l_e_m_e_n_t_a_t_i_o_n

          |      The routine is implemented  as  a  functional  approximation
          |      performed  on  a  reduction  of the argument.  It is adapted
          |      from the algorithm given in the book _S_o_f_t_w_a_r_e _M_a_n_u_a_l _f_o_r _t_h_e
          |      _E_l_e_m_e_n_t_a_r_y _F_u_n_c_t_i_o_n_s by William Waite and William Cody,  Jr.
          |      (Prentice-Hall, 1980).


          | _C_a_l_l_s

          |      Primos signl$


          | _S_e_e _A_l_s_o

          |      err$m (2), exp$m (2),
          |      _S_W_T _M_a_t_h _L_i_b_r_a_r_y _U_s_e_r_'_s _G_u_i_d_e













            dexp$m (2)                    - 1 -                    dexp$m (2)


