Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0123/online.for
There are 2 other files named online.for in the archive. Click here to see a list.
00100 C OLINE(X,Y,N,K)
00200 C THIS PROGRAM DRAWS A LINE THROUGH THE POINTS
00300 C (X(1),Y(1)),(X(1+K),Y(1+K)),(X(1+2K),Y(1+2K)),...,(X(N),Y(N)).
00400 SUBROUTINE OLINE(X,Y,N,K)
00500 DIMENSION X(1),Y(1)
00600 CALL OPLOT(X(1),Y(1),3)
00700 DO 1 I=1,N,K
00800 1 CALL OPLOT(X(I),Y(I),2)
00900 CALL OPLOT(X(N),Y(N),2)
01000 RETURN
01100 END