C ***  VAX VMS ERROR HANDLING ROUTINE
C *
      INTEGER*4 FUNCTION HDLR(SIGARGS,MECHARGS)
      INTEGER*4 SIGARGS(*), MECHARGS(5)
      INCLUDE 'SYS$LIBRARY:SIGDEF'
      INCLUDE 'SYS$LIBRARY:MTHDEF'
      IF( SIGARGS(2) .EQ. 1084 )RETURN
D     WRITE(6,1) SIGARGS(2)
D1    FORMAT(/,' *** ENTERED ERROR HANDLER: CODE = 'Z8)
C *
1000  IF( SIGARGS(2) .NE. MTH$_FLOOVEMAT ) GO TO 2000
       MECHARGS(4) = 'F2CA7249'X
       MECHARGS(5) = 'FFFFFFFF'X
D      WRITE(6,1010)
1010   FORMAT(' *** ERROR: SS$FLOOVEMAT')
       HDLR = SS$_CONTINUE
       RETURN
C *
2000  IF( SIGARGS(2) .NE. SS$_FLTOVF_F ) GO TO 3000
       MECHARGS(4) = 'F2CA7249'X
       MECHARGS(5) = 'FFFFFFFF'X
D      WRITE(6,2010)
2010   FORMAT(' *** ERROR: SS$FLTOVF_F')
       HDLR = SS$_CONTINUE
       RETURN
C *
3000  IF( SIGARGS(2) .NE. MTH$_UNDEXP ) GO TO 4000
       MECHARGS(4) = 'F2CA7249'X
       MECHARGS(5) = 'FFFFFFFF'X
D      WRITE(6,3010)
3010   FORMAT(' *** ERROR: MTH$_UNDEXP')
       HDLR = SS$_CONTINUE
       RETURN
C *
4000  HDLR = SS$_RESIGNAL
      RETURN
      END
