Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50444/online.for
There are 2 other files named online.for in the archive. Click here to see a list.
C		OLINE(X,Y,N,K)
C THIS PROGRAM DRAWS A LINE THROUGH THE POINTS
C (X(1),Y(1)),(X(1+K),Y(1+K)),(X(1+2K),Y(1+2K)),...,(X(N),Y(N)).
	SUBROUTINE OLINE(X,Y,N,K)
	DIMENSION X(1),Y(1)
	CALL OPLOT(X(1),Y(1),3)
	DO 1 I=1,N,K
1	CALL OPLOT(X(I),Y(I),2)
	CALL OPLOT(X(N),Y(N),2)
	RETURN
	END