	SUBROUTINE AZTO09(VAL,RET,ISIZE)
C	ROUTINE TO CONVERT A CHARACTER STRING OF DIGITS TO A REAL NUMBER
C 
C	PROGRAMMED BY DAVE THORSON
C 
	LOGICAL*1 VAL,C
C 
	DIMENSION VAL(1)
	MM=-1
	IPWR=-2
	X=0.
	ISGN=1
	DO 4 I=1,ISIZE
	IF(VAL(I).LE."40)GOTO 4 !  IGNORE BLANKS AND CONTROL CHARACTERS
	IF(VAL(I).EQ."55)GOTO 3
	IF(VAL(I).EQ."56)GOTO 2
	IF(VAL(I).LT."60.OR.VAL(I).GT."71) RETURN
	C="57
	MM=MM+1
	DO 1 K=1,10
	C=C+"1
	IF(VAL(I).EQ.C) X=X+(K-1)*10.**(-MM)
1	CONTINUE
	GOTO 4
2	IPWR=MM
	GOTO 4
3	ISGN=-ISGN
4	CONTINUE
	IF(IPWR.EQ.-2) IPWR=MM
	RET=ISGN*X*10.**IPWR
	RETURN
	END
