SUBROUTINE STRVRF ( IDATA )
C
C	NAME:  STRVRF
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	STRVRF - THIS ROUTINE IS USED TO MOVE DATA INTO THE IVBUF
C		 FOR OUTPUT.
C
C	ENTRY:  CALL STRVRF ( IDATA )
C
C		     IDATA - WORD TO MOVE INTO THE IVBUF ARRAY
C		             NOTE:  ONLY LOWER 16 BITS ARE MOVED.
C
C	EXIT:  RETURN.
C
C	CALLS:  OUTPUT
C
C	CALLED BY:  VRFPLT
C
C	COMMON USED:
C	/BSORT/
C		I IWRD    - INDEX INTO IVBUF
C		I NBYTS   - BYTE COUNT OF OUTPUT RECORD
C		I IVBUF   - ARRAY USED FOR SORT AND OUTPUT BUFFERS.
C	/IOCOM/
C		I LREC    - LENGTH OF DATA FILE RECORD IN WORDS
C
C	LOCAL VARIABLES:
C		I IDATA2(2) - 2 WORD INT*2 ARRAY EQUIVALENCED TO IDATA1
C
C
	INTEGER*4 ITEMPL
	INTEGER*2 IDATA2(2)
	EQUIVALENCE (ITEMPL, IDATA2(1))
C
C
	INCLUDE 'BSORT.CMN'
C
C
	INCLUDE 'IOCOM.CMN'
C
C
C
  100	  ITEMPL = IDATA
C
C...	  MOVE LOWER 16 BITS
	  IVBUF(IWRD) = IDATA2(1)
	  IWRD = IWRD + 1
C
 9999	RETURN
	END