%N matherr %F $MIR/src/subs/calio.for
%D Catch IEEE errors on sun
%: 
%P pjt
%B
        SUBROUTINE matherr(mtrap)
        LOGICAL mtrap
  Input:
       mtrap   Logical, if set, and environment variable IEEE_HANDLER is
               present, IEEE errors are caught. The value of
               IEEE_HANDLER must be one of: 
                         inexact, division, underflow, overflow, 
                         invalid, all, common
               (See also manual page IEEE_HANDLER
        Note: This code is not portable. It uses the '#ifdef f77' ratty
        trigger. A stub is present for all other systems but sun
