C FORTRAN CROSS REFERENCE PROGRAM C IMPLICIT LOGICAL*1 (B) DOUBLE PRECISION SYMBOL COMMON/PARAMS/LUNIN,LUNOUT,LUNCMD,BTAB,BSPC,NLINE,NSTMT, 1ICLASS,BCHR,BLST,JSYM(2),NSYMTP,IPARNS,NPAGE,NLIST COMMON /INBUFR/INSIZ,INCNT,IOUTX,MCRSIZ,INFIL,IOUTFL, 1BDPB(2),BUFR(80),BNAM(24),BTIME(8),BDATE(9),BX(1) COMMON /ERROR/ IERR COMMON NSYM,NELM,KLIM,SYMBOL(2000) C 10 CALL XRFINI IERR = 0 20 CALL XREF CALL OUTPUT IF(INCNT.NE.0)GOTO 20 IF(MCRSIZ.LE.0)GOTO 10 CALL EXIT END