	PROGRAM TEST8
	DIMENSION X(512),Y(512),IBUF(30),ARRAY(10)
	DO 10 I=1,512
	X(I)=FLOAT(I)*2
	Y(I)=FLOAT(I)*4
10	CONTINUE
	CALL GRAPHS(IBUF,227,,Y,512,,0)
	CALL GRINDX(IBUF,,512,ARRAY,0)
	WRITE(7,20)(J,ARRAY(J),J=1,10)
20	FORMAT(' J=',I3,'  ARRAY(J)=',E13.6)
	CALL EXIT
	END
