#
#FILE = CFOR.RAT FOR RATFOR.RAT
   COMMON /CFOR/ FORDEP, FORSTK(MAXFORSTK), FORLEN
      INTEGER FORDEP 	# CURRENT DEPTH OF FOR STATEMENTS
      CHARACTER FORSTK	# STACK OF REINIT STRINGS
      INTEGER FORLEN		# CURRENT LENGTH OF FORSTK+1