0040#					FILE = CFOR.RAT FOR RATFOR.RAT0054   COMMON /CFOR/ FORDEP, FORSTK(MAXFORSTK), FORLEN0060      INTEGER FORDEP 		# CURRENT DEPTH OF FOR STATEMENTS0052      CHARACTER FORSTK	# STACK OF REINIT STRINGS0054      INTEGER FORLEN		# CURRENT LENGTH OF FORSTK+1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^