SUBROUTINE COMMA(FLOATN,STR,LEN)
	IMPLICIT INTEGER(A-Z)
	REAL FLOATN
	BYTE STR(1),BUF(26),FMT(8)
	DATA FMT/'(','F','2','5','.','0',')',0/
	CALL CONV(LEN,FMT(3),2)
	ENCODE(LEN,FMT,BUF)FLOATN
	J=0
	K=LEN
	CALL INPL(0,LEN,STR) !SPACE FILL STR
	XX=LEN-1
	DO 20 I=XX,1,-1
	STR(K)=BUF(I)
	J=J+1
	IF(BUF(I-1).EQ."40.OR.BUF(I-1).EQ."55)GO TO 30
	IF(MOD(J,3).NE.0)GO TO 20
	K=K-1
	STR(K)="54 !STR(K)=','
20	K=K-1
30	STR(K-1)=BUF(I-1)
	RETURN
	END