 #--------------------------------------------------------------------------
 ## preprocessor common block to hold current function name
 # put on a file named 'cfname'
 # Used only by ratfiv preprocessor
 
 common /cfname/  fcname(MAXNAME)
   character fcname     #text of current function name
