 #------------------------------------------------------------------
 ## preprocessor common block to hold info about lines and included files
 # put on a file named 'cline'
 # used by ratfiv preproccessor and macro

 common /cline/ level, infile(NFILES), linect(NFILES), fnamp(NFILES),
                fnames(MAXFNAMES)
   integer level        # level of file inclusion; init = 1
   integer infile       # file number(level); init infile(1) = STDIN
   integer linect       # line count on input file(level); init = 1
   integer fnamp        # next free slot in fnames
   character fnames     # stack of open file names
