Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0152/bar.for
There are 2 other files named bar.for in the archive. Click here to see a list.
	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