    	SUBROUTINE PUTIFL( KP, IE, IT, IL, IC )
C
C	PROGRAMMER: R.S. ZHOU		FEB-1986
C
C	THIS ROUTINE OUTPUTS "IE" INTEGERS CONTAINED IN INTEGER
C	ARRAY -- KP(IE) IN FIELD LENGTH DESIGNATED BY "IT" AT
C	LINE "IL" AND COLUMN "IC".
C	
    	BYTE TEXT(9)
    	DIMENSION KP(1)
     	DATA TEXT / 0, 27, 91, 0, 0, 59, 0, 0, 72 /
C
C  TEXT = <ESC>[00;00H
C
     	IR = IE
    	IFL = IT
     	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, (KP(I),I=1,IR)
1	FORMAT(9A1,<IR>I<IFL>,$)
    	RETURN
     	END
