 
COMMON /CFNAME/ FCNAME(MAXNAME)
   CHARACTER FCNAME   # TEXT OF CURRENT FUNCTION NAME
