*COMDECK DIAGLVL
    # 
*         DIAGNOSTIC LEVEL NUMBERS FOR USE IN THE COMPILER. 
* 
*                ALL ROUTINES WHICH PROCESS DIAGNOSTICS SHOULD CALL 
*                THIS COMDECK.
* 
*         THIS COMDECK IS USED BY BOTH COMPASS AND SYMPL SO IT SHOULD 
*                BE PROPERLY FORMATTED: 
*         1)     SYMPL COMMENT MARKS AROUND TEXT IN COL 5,
*                THE TEXT ON ANOTHER LINE W/ ASTERISK IN COL 1. 
*         2)     DEFS:  -DEF- IN COL 11, NAME IN COL 18 
*         3)     NAME MUST BEGIN W/ UNIQUE LETTER WHICH MATCHES THE 
*                LETTER TO BE USED IN DFTABLE.
* 
    # 
          DEF    TRIVIAL     #1#; 
          DEF    WARNING     #2#; 
          DEF    FATAL       #3#; 
          DEF    CATASTROPH  #4#; 
          DEF    NON$ANSI    #5#; 
  
