function my_handler(sig,code,context)
c
c=======================================================================
c                                                                    ===
c  This function is a dummy routine to try to enable the debugger    ===
c  to catch floating point exceptions.                               ===
c                                                                    ===
c=======================================================================
c
c
c-----------------------------------------------------------------------
c  Define local data.
c-----------------------------------------------------------------------
c
      integer my_handler,sig,code,context(5)
c
c-----------------------------------------------------------------------
c  Begin executable code.
c-----------------------------------------------------------------------
c
      if(loc(code).eq.208) then
        print *,'MY_HANDLER: Invalid argument.'
        call exitus('MY_HANDLER')
      endif
      if(loc(code).eq.200) then
        print *,'MY_HANDLER: Division by zero.'
        call exitus('MY_HANDLER')
      endif
      if(loc(code).eq.212) then
        print *,'MY_HANDLER: Overflow.'
        call exitus('MY_HANDLER')
      endif
      if(loc(code).eq.204) then
        print *,'MY_HANDLER: Underflow.'
        call exitus('MY_HANDLER')
      endif
      if(loc(code).eq.196) print *,'MY-HANDLER: Inexact representation.'
      return
      end