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.