RDAT1I
Name
	rdat1i
Purpose
     
      Read and return a one dimensional 2-byte integer vector.
Description
     
      The file should contain at least num points.
Category
File I/o
Calling Sequence
	vec=rdat1i(100,'myfile.dat')
Inputs
	num      = number of values to read from the file.
	filename = string containing the name of the file to read.
Outputs
	returns the vector
Revision History
	Written by Marc Buie on 12/28/92
Comments
	A bit of a kludge.