Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0125/vector.for
There is 1 other file named vector.for in the archive. Click here to see a list.
SUBROUTINE VECTOR(N, FILE, X, Y)
C************************************************************
C
C THIS ROUTINE INSERTS A VISIBLE VECTOR TO USER (X, Y)
C
C SEE DOCUMENTATION ON SUBROUTINE ADLINE
C
C POSSIBLE ERRORS:
C NONE
C
C ROUTINES CALLED:
C ADLINE
C
C************************************************************
INTEGER FILE(N)
CALL ADLINE(N, FILE, X, Y, .TRUE.)
RETURN
END