	FUNCTION GETNUM(A,I1,I2,I3)
C	RETURNS NUMBER CONTAINED IN STRING A STARTING AT POSITION I1.
C	I2 IS MAXIMUM LENGTH OF STRING YOU WANT SEARCHED.
C	I3 IS THE FIRST NON-NUMERIC/BLANK CHARACTER FOLLOWING NUMBER
C 
C	Programmed by Dave Thorson
C 
	CHARACTER*255 A
	LOGICAL*1 ARR(20)
	GETNUM=0.
	L=MIN(I2,20+I1)
	DO 12 I3=I1,L
	IF(A(I3:I3).EQ.'.'.OR.A(I3:I3).EQ.'-'.OR.A(I3:I3).EQ.' ')GOTO 12
	IF(A(I3:I3).LT.'0'.OR.A(I3:I3).GT.'9') GOTO 13
12	CONTINUE
13	IF(I3.EQ.I1) GOTO 10
	K=I1-1
	DO 14 I=I1,I3-1
	ARR(I-K)=ICHAR(A(I:))
14	CONTINUE
	CALL AZTO09(ARR,RET,I3-K-1)
	GETNUM=RET
10	RETURN
	END
