#----------------------------------------------------------------------
# preprocessor common block to hold input characters
# Put on a file called 'cdefio'
# Used by ratfiv preprocessor and macro

 common /cdefio/ bp, bplow, bpsave(NFILES), buf(BUFSIZE)
   integer bp           # next available character; init = 0
   integer bplow	# bottom of push-back buffer at current file level
   integer bpsave	# holds bplow for active file levels
   character buf        # pushed-back characters