#--------------------------------------------------------------------
 ## preprocessor common block to hold definitions
 # put on a file named 'clook'
 # Used by ratfiv preprocessor, macro, and form tools
 
 common /clook/ avail, tabptr(127), table(MAXTBL)
 
        integer avail   #first location in table; init = 1
        integer tabptr  #name poiners; init = 0
        character table   #actual text of names and definitions