# FILE = CLINE.RAT FOR RATFOR.RAT # PCN #75, DEC 79, ADD FORTRAN LINE NUMBERS TO RATFOR LISTING COMMON /CLINE/ LEVEL, INFILE(NFILES), LINECT, INIF, FTNLN INTEGER LEVEL # LEVEL OF FILE INCLUSION; INIT = 1 INTEGER INFILE # FILE NUMBER(LEVEL); INIT INFILE(1) = STDIN INTEGER LINECT # RATFOR SOURCE CODE LINE NUMBER, INIT=1 INTEGER INIF # =YES WHEN INSIDE AN UNDEFINED IFDEF; INIT=NO INTEGER FTNLN #CURRENT FORTRAN LINE NUMBER, INIT=0