*DECK,DEBUGER 
      SUBROUTINE DEBUG ER 
C 
C  THIS ROUTINE PRINTS ERROR MESSAGES FOR FORTRAN DEBUG ROUTINES.  THE
C  INCORRECT STATEMENT LINE IS PRINTED IF THE NO LIST OPTION IS ON. 
C  UPON ENTRY:  
C         M       = THE DEBUG ERROR NUMBER. 
*CALL LDBGCOM 
      DATA PREDBG  /10H DEBUG SYN, 10HTAX ERROR / 
      FEFLAG = -1 
    5 GO TO ( 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 
     ,    140, 150, 160) M
   10 WRITE (DBGOUT, 11) PREDBG, DUKE1
   11 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED /, (, ,, OR ), MISSING*) 
      GO TO 1000
   20 WRITE (DBGOUT, 21) PREDBG, DUKE1
   21 FORMAT(14X,2A10,*LINE *,I5,*- CHARACTERS PAST )*) 
      GO TO 1000
   30 WRITE (DBGOUT, 31) PREDBG, DUKE1
   31 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED SYMBOL, MISSING*)
      GO TO 1000
   40 WRITE (DBGOUT, 41) PREDBG, DUKE1
   41 FORMAT(14X,2A10,*LINE *,I5,*- ROUTINE DOES NOT APPEAR IN DEBUG ROU
     ,TINE LIST*) 
      GO TO 1000
   50 WRITE (DBGOUT, 51) PREDBG,DUKE1 
   51 FORMAT(14X,2A10,*LINE *,I5,*- BAD BOUND*) 
      GO TO 1000
   60 WRITE (DBGOUT, 61) PREDBG, DUKE1
   61 FORMAT(14X,2A10,*LINE *,I5,*- LEVEL INTEGER EXPECTED, MISSING*) 
      GO TO 1000
   70 WRITE (DBGOUT, 71) PREDBG, DUKE1
   71 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST NOGO*)
      GO TO 1000
   80 WRITE (DBGOUT, 81) PREDBG, DUKE1
   81 FORMAT(14X,2A10,*LINE *,I5,*- LEGAL OPTION EXPECTED, MISSING*)
      GO TO 1000
   90 WRITE (DBGOUT, 91)  PREDBG, DUKE1 
   91 FORMAT(14X,2A10,*LINE *,I5,*- AN OFF STATEMENT SHOULD NOT APPEAR I
     ,N AN OFF STATEMENT*)
      GO TO 1000
  100 WRITE (DBGOUT, 101) PREDBG, DUKE1 
  101 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST GO TOS*)
      GO TO 1000
  110 WRITE (DBGOUT, 111) PREDBG, DUKE1 
  111 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST TRACE*) 
      GO TO 1000
  120 WRITE (DBGOUT, 121) PREDBG, DUKE1 
  121 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED ,, ), OR .REL OP., MISSING*
     ,    ) 
      GO TO 1000
  130 WRITE (DBGOUT,131) PREDBG, DUKE1
  131 FORMAT ( 14X, 2A10, *LINE *, I5, 37H- BOUND FORM (*) MEANINGLESS, 
     ,IGNORED)
      GO TO 1000
  140 WRITE(DBGOUT,141) PREDBG,DUKE1
  141 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CONSTANT*)
      GO TO 1000
  150 WRITE(DBGOUT,151) DUKE1 
  151 FORMAT(14X,* DEBUG ERROR ON LINE *,I5,*- CONSTANT TABLE OVERFLOW*)
      GO TO 1000
  160 WRITE (DBGOUT, 161) PREDBG, DUKE1 
  161 FORMAT (14X, 2A10, *LINE *,I5, *- ILLEGAL ROUTINE IN DEBUG LIST*) 
 1000 RETURN
      END 
