	INTEGER*2 IN(3),OUT(3)	DATA IN/'LE','FT',' '/	K=3	CALL RJUST(IN,OUT,K)	WRITE(*,30)(IN(K),K=1,3)	WRITE(*,30)(OUT(K),K=1,3)  30    FORMAT(' ',3A2)	STOP	END%	SUBROUTINE RJUST(INCHAR,OCHAR,NCHAR)2C_TITLE Left justifies an Integer *2 ascii string.C_ARGUMENTS=	INTEGER*2 INCHAR(NCHAR) ![I] In string to be left justified.8	INTEGER*2 OCHAR(NCHAR)  ![O] Out string left justified.B!	INTEGER   NCHAR         ![I] Number of integer*2 words in INCHAR'C_DESC  Left justifies an input string."C_HISTORY 87OCT28 Robert L. GuruleC_end	CHARACTER*30 TEMP,TEMP2	KNT = 0	NC = NCHAR * 2(	ENCODE(NC,30,TEMP)(INCHAR(I),I=1,NCHAR) 30     FORMAT(<nchar>A2)	DO I= 1,NCHAR$	  IF(TEMP(I:I).EQ.' ')KNT = KNT + 1	ENDDO	IST = (NC - KNT) 	IEN = IST+14!	Move text from one array to another left justifing
	DO I = 1,IST	  IEN = IEN + 1	  TEMP2(I:I)=TEMP(IEN:IEN)	ENDDO"	ENCODE(16,13,OCHAR)TEMP2(1:NCHAR) 13     FORMAT(A16)			        	RETURN	END