SUBROUTINE CRTS(STR,RVAL)
	LOGICAL*1 STR(2)
	REAL*4 RVAL
C LOCAL DECLARATIONS
	LOGICAL*1 FFMT(6)
	DATA FFMT/'(','F','9','.',' ',')'/
C BEGIN
	TMP=ABS(RVAL)
	IF(TMP.LT.1E-1.OR.TMP.GE.1E5)GO TO 2000
	FFMT(5)='3'
	IF(TMP.GT.10.0)FFMT(5)='2'
	IF(TMP.GT.100.0)FFMT(5)='1'
	IF(TMP.GE.1000.0)FFMT(5)='0'
	ENCODE(9,FFMT,STR)RVAL
	IF(STR(9).EQ.'.')STR(9)=' '
	GO TO 2100
2000	CONTINUE
	ENCODE(9,10,STR)RVAL
10	FORMAT(1PG9.2)
2100	STR(10)=0
	CALL RLBS(STR)
	CALL RTBS(STR)
	END