PRO RDCAL,time,cycle,scen,sets,lamps,files

;+
;
; NAME:
;	RDCAL
; PURPOSE:
;	Reads in the time ordered list of the Calibration Cycle data set
;	values
; CATEGORY:
;	Verification Tool
; CALLING SEQUENCE:
;	RDCAL,time,cycle,scen,sets,lamps,files
; INPUTS:
;	None
; OPTIONAL INPUT PARAMETERS:
;	None
; OUTPUTS:
;	time:	Array of mission time
;	cycle:	Array of calibration cycle number
;	scen:	Array of calibration scenario
;	sets:	Array of measurement set and reps for each calibration 
;		activity.  There are 15 columns of time ordered data.
;	lamps:	Array of lamp states
;	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:
;	rdcal,time,cycle,scen,sets,lamps,files
; PROCEDURE:
;	Determine size of input file: post/timelist/t18cal.list
;	Read in file
; MODIFICATION HISTORY:
;	Created by Laura Ellen Dafoe 14 June 1994
;	Tested by Laura Ellen Dafoe on test log: led2 on 27 June 1994
;		Manually compared time ordered list to data read in for
;		the entire file.
; REVISION:
;	1.0	
;
;----------------------------------------------------------------------------
;		        D I S R S O F T    (C)  1 9 9 4      
;-----------------------------------------------------------------------------
;-
if (N_PARAMS(0) NE 6) then print,'Call is RDCAL,time,cycle,scen,sets,lamps,files'
InputFile='post/timelist/t18cal.list'
spawn,'wc '+InputFile,WC
NumLines=fix(strmid(WC,0,7))
NumLines=NumLines(0)

openr,infile,InputFile,/get_lun
time=fltarr(NumLines)
cycle=intarr(NumLines)
scen=intarr(NumLines)
sets=intarr(NumLines,15)
lamps=strarr(NumLines)
files=strarr(NumLines)
a=''
s=''

for i=0,NumLines-1 do begin
	readf,infile,format='(g10.4,15i5,x,a4,2i5,x,a48)',time1,cyc,scen1,$
		s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s,s14,s15,a
	time(i)=time1
	cycle(i)=cyc
	scen(i)=scen1
	sets(i,0)=s1
	sets(i,1)=s2
	sets(i,2)=s3
	sets(i,3)=s4
	sets(i,4)=s5
	sets(i,5)=s6
	sets(i,6)=s7
	sets(i,7)=s8
	sets(i,8)=s9
	sets(i,9)=s10
	sets(i,10)=s11
	sets(i,11)=s12
	sets(i,12)=s13
	sets(i,13)=s14
	sets(i,14)=s15
	lamps(i)=s
	files(i)=strtrim(a,2)
endfor

free_lun,infile

end