err$m (2) --- common error condition handler for math routines  04/27/83


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

          |      subroutine err$m (ptr_to_cfh)
          |      pointer ptr_to_cfh

          |      Library: vswtmath (Subsystem mathematical library)


          | _F_u_n_c_t_i_o_n

          |      The  'err$m'  procedure is provided as a default handler for
          |      the SWT_MATH_ERROR$ condition.  It takes a single  argument,
          |      a  2 word pointer as defined by the condition mechanism, and
          |      prints  information  about  the  routine  and  values  which
          |      signalled the fault.  All output from the 'err$m' routine is
          |      sent  to  ERROUT.  Included in the output is the name of the
          |      faulting routine,  the  location  from  which  the  faulting
          |      routine  was called, the value of the argument involved, and
          |      the default return value to be used.

          |      The Primos MKON$F routine can be used to set up this on-unit
          |      handler in Ratfor  and  Fortran  66  programs.   The  Primos
          |      subroutine  MKON$P  can  be  used  in  Fortran  77  and PL/P
          |      programs.

          |      The user may wish to copy and modify the source code for the
          |      'err$m' procedure so as to provide a more specific  form  of
          |      error  handling.   If  this  is done, it would probably be a
          |      good idea to rename the user's version  to  something  other
          |      than 'err$m.'


          | _C_a_l_l_s

          |      print


          | _S_e_e _A_l_s_o

          |      Primos mkon$f, Primos mkon$p, Primos signl$,
          |      _S_W_T _M_a_t_h _L_i_b_r_a_r_y _U_s_e_r_'_s _G_u_i_d_e

















            err$m (2)                     - 1 -                     err$m (2)