	SUBROUTINE BAR (IBUF,Y,NPTS)
	DIMENSION IBUF(1),Y(NPTS),YOUT(512),X(512)
	ISIZE = 512 / NPTS
	K = 1
	DO 10 I = 1, NPTS
	DO 10 J = 1, ISIZE
	YOUT(K) = Y(I)
	X(K) = FLOAT (K)
	K=K+1
10	CONTINUE
	CALL GRAPHS (IBUF, 227+4, X,YOUT, 512, 0.0, 0)
	RETURN
	END


