pro rd_time_list, infil, sttim, entim
;
;
;
spawn, 'wc ' + infil, result
nlin = result(0)
;
out = anytim2ints([0,0])
sttim = replicate(out, nlin)
entim = replicate(out, nlin)
;
openr, lun, infil, /get_lun
for i=0,nlin-1 do begin
    lin = ' '
    readf, lun, lin
    remtab, lin, lin1
    ;
    p = strpos(lin1, ' - ')
    if (p eq -1) then begin
	tim1 = anytim2ints(lin1)
	sttim(i) = tim1
    end else begin
	str1 = strmid(lin1, 0, p)
	str2 = strmid(lin1, p+3, 100)
	tim1 = anytim2ints(str1)
	tim2 = anytim2ints(str2)
	if ((tim1.day le 0) and (i ne 0)) then tim1.day = sttim(i-1).day
	if (tim2.day le 0) then tim2.day = tim1.day
	
	sttim(i) = tim1
	entim(i) = tim2
    end
end
;
free_lun, lun
end