Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50446/vector.f4
There are no other files named vector.f4 in the archive.
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