	SUBROUTINE VTEC(KNIBS,KBYTES)
C
C	NAME:  VTEC
C
C	LANGUAGE:  FORTRAN
C
C	OPERATING SYSTEM:  DEC VAX/VMS
C
C	ORDER NUMBER:  5448-SE
C
C	PART NUMBER:  000-025522-001  OCTOBER 1985
C
C	PRODUCT:  DEC VAX/VMS VERSAPLOT COLOR RANDOM 2.0
C
C	VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
C	A XEROX COMPANY
C
C	Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
C
C	"NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
C	INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
C	LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
C	PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
C	REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
C	THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
C	VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
C	AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
C	THE COPYRIGHT ACT OF 1976."
C
C
C
C	VTEC - CALLED TO CHANGE THE DEFAULT PLOTTER MODEL
C
C	VTEC WILL CHANGE THE DEFAULT PLOTTER MODEL AS
C	DENOTED BY THE KNIBS AND KBYTES ARGUMENTS.
C
C	NOTE:  VTEC MUST BE CALLED BEFORE SUBROUTINE PLOTS
C	       IS CALLED AND CALLED ONLY ONCE PER JOB.
C
C	ENTRY:  CALL VTEC(KNIBS,KBYTES)
C
C		KNIBS  - NIBS PER INCH TRUNCATED TO NEAREST INTEGER.
C			 ASSUMED TO BE THE SAME IN X AND Y DIRECTION.
C			 KNIBS <0 IS ILLEGAL.
C		KBYTES - NUMBER OF 8 BIT BYTES PER SCAN LINE.
C
C	EXIT:  MODEL, IDEN, IBYTES IN PRMCOM COMMON ARE UPDATED.
C
C	CALLS:  NONE
C
C	CALLED BY:  USER
C
C	COMMON USED:
C	/DVCOM/
C		I IOPEN   - SUBROUTINE PLOTS FIRST CALL FLAG
C
C	/PRMCOM/
C		I IBYTES  - DEFAULT PLOTTER BYTES/SCAN (8-BIT BYTES).
C		I IFONT   - DEFAULT FONT PATTERN NUMBER.
C		I MODEL   - DEFAULT PLOTTER MODEL.
C		R RDEN    - DEFAULT PLOTTER NIBS/INCH VALUE.
C
C	LOCAL: NONE
C
C
C
	INCLUDE 'DVCOM.CMN'
C
C
	INCLUDE 'PRMCOM.CMN'
C
C
C...	CHECK IF PLOTS ALREADY CALLED
	IF (IOPEN .NE. 0)  RETURN
C
C...	SET COMMON VARIABLES
	RDEN = FLOAT(KNIBS)
	IBYTES = KBYTES
C
C...	RESET PLOTTER MODEL TO INDICATE RDEN AND IBYTES ARE
C...	ALREADY INITIALIZED.
	MODEL = 9999
C
	RETURN
C
	END
