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