      integer function myhandler(sig,code,context)
      integer sig, code, context(5)
      if (loc(code) .eq. 204) then
         write(*,*)'Underflow'
        endif
      end
