#-----------------------------------------------------------------------
# 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), ioin(MAXLINE)

    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
    character ioin	 # input buffer