    	SUBROUTINE PUTFFL( RP, IE, FL, IL, IC )
C
C	PROGRAMMER: R.S. ZHOU		FEB-1986
C
C	THIS ROUTINE OUTPUTS "IE" REAL NUMBERS CONTAINED IN THE
C	ARRAY -- RP(IE) IN FIELD FORMAT DESIGNATED BY "FL" AT
C	LINE NUMBER "IL" AND COLUMN NUMBER "IC" IN THE DIALOGUE
C	AREA, WHERE "FL" IS SPECIFIED IN #1.#2 FOR FIXED POINT
C	REAL DATA FIELD "F#1.#2".
C
    	BYTE TEXT(9)
    	DIMENSION RP(1)
     	DATA TEXT / 0, 27, 91, 0, 0, 59, 0, 0, 72 /
     	PARAMETER FM = 10.0
C
C  TEXT = <ESC>[00;00H
C
     	J   = INT(FL)
     	K   = FM*(FL-FLOAT(J))+0.1
     	IR  = IE
     	IL0 = IL/10
     	IL1 = IL-10*IL0
     	IC0 = IC/10
     	IC1 = IC-10*IC0
    	TEXT(4) = 48 + IL0
    	TEXT(5) = 48 + IL1
    	TEXT(7) = 48 + IC0
    	TEXT(8) = 48 + IC1
     	WRITE(6,1) TEXT, (RP(I),I=1,IR)
1	FORMAT(9A1,<IR>F<J>.<K>,$)
    	RETURN
     	END
