SUBROUTINE CSTR(STR,RVAL)
	LOGICAL*1 STR(2)
	REAL*4 RVAL
	LOGICAL*1 BUF(14)
	CALL LENSTR(STR,LEN)
	IF(LEN.GT.14)GO TO 2000
	DO 1010 I=1,14-LEN
1010	BUF(I)=' '
	DO 1020 I=1,LEN
1020	BUF(I+14-LEN)=STR(I)
	DECODE(14,10,BUF,ERR=2000)RVAL
10	FORMAT(F14.0)
	RETURN
2000	CALL PLINE('CSTR: ILLEGAL STRING')
	RVAL=1.0E30
	END