 #--------------------------------------------------------------------
 ## preprocessor common block to hold 'goto' flags and current label
 # put on a file named 'cgoto'
 # Used only by ratfiv preprocessor
 
 common /cgoto/ label, xfer
        integer label   # holds next label for goto, etc.
        integer xfer    # YES if just made transfer; else NO
