#--------------------------------------------------------------------
 ## preprocessor common block to hold 'goto' flags
 # put on a file named 'cgoto'
 # Used only by ratfiv preprocessor
 
 common /cgoto/ xfer
        integer xfer    #YES if just made transfer; else NO