Google
 

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