#				FILE=CFUNC.RAT  FOR RATFOR
   COMMON /CFUNC/ INFUNC, FNAM(MAXTOK)
      INTEGER INFUNC		# IN A FUNCTION?, YES/NO, INIT=NO
      CHARACTER FNAM		# NAME OF THE FUNCTION