PRO RDCLS,time,raw,conv,files
;+
;
; NAME:
;	RDCLS
; PURPOSE:
;	Reads in the time ordered list of the temperature calibration source
; CATEGORY:
;	Verification Tool
; CALLING SEQUENCE:
;	rdcls,time,raw,conv,files
; INPUTS:
;	None
; OPTIONAL INPUT PARAMETERS:
;	None
; OUTPUTS:
;	time:	Array of mission time
;	raw:	Array of raw calibration source data values
;	conv:	Array of converted temperature calibration current
;	files:	Array of filenames in time order
;	All arrays have the same length as the time ordered list
; OPTIONAL OUTPUT PARAMETERS:
;	None
; KEYWORDS:
;	None
; COMMON BLOCKS:
;	None
; SIDE EFFECTS:
;	None
; RESTRICTIONS:
;	None
; EXAMPLE:
;	rdcls,time,raw,conv,files
; PROCEDURE:
;	Determine size of input file: post/timelist/t04clsrs.list
;	Read in file
; MODIFICATION HISTORY:
;	Created by Laura Ellen Dafoe 14 June 1994
;	Tested by Laura Ellen Dafoe on test log: baptism2 on 25 June 1994.
;		Manually compared time ordered list to arrays read in by
;		this routine.  Checked 1st and last records.
; REVISION:
;	1.0
;
;----------------------------------------------------------------------------
;		        D I S R S O F T    (C)  1 9 9 4      
;-----------------------------------------------------------------------------
;-
if (N_PARAMS(0) NE 4) then print,'Call is RDCLS,time,raw,conv,files'
InputFile='post/timelist/t04clsrs.list'
spawn,'wc '+Inputfile,WC
NumLines=fix(strmid(WC,0,7))
NumLines=NumLines(0)

openr,infile,Inputfile,/get_lun
time=fltarr(NumLines)
raw=intarr(NumLines)
conv=fltarr(NumLines)
files=strarr(NumLines)
a=''

for i=0,NumLines-1 do begin
	readf,infile,format='(g10.4,i7,g10.4,x,a48)',time1,raw1,conv1,a
	time(i)=time1
	raw(i)=raw1
	conv(i)=conv1
	files(i)=strtrim(a,2)
endfor

free_lun,infile

end