5 * Revision 1.1.1.1 1996/02/15 17:49:59 mclareni
9 SUBROUTINE TRACEQ (LUN,LEV)
11 C CERN PROGLIB# N105 TRACEQ .VERSION KERNVAX 1.09 810226
12 C ORIG. 26/02/81, J. BETTELS, CERN
23 IF (NR.NE.0) ERRFIL(J:J)=CHAR(NR+ICHAR('0'))
27 II = SYS$CRELOG (%VAL (2),'SYS$ERROR',ERRFIL,)
28 CALL LIB$SIGNAL (%VAL (0))