#NOTE: On the IAS and VMS implementations, where characters are stored # as logical*1 (bytes), DEC requires that common block dimensions # be an even number. These dimensions have been adjusted # accordingly. #------------------------------------------------------------------ ## preprocessor common block to hold info about lines and included files # put on a file named 'cline' # Used only by ratfor preprocessor common /cline/ level, linect(NFILES), infile(NFILES), fnamp, fnames(MAXFNAMES) integer level # level of file inclusion; init = 1 integer linect # line count on input file(level); init = 1 integer infile # file number(level); init infile(1) = STDIN integer fnamp # next free slot in fnames; init = 2 character fnames # stack of include names; init fnames(1) = EOS