; IDL Version 5.4 (sunos sparc)
; Journal File for hhudson@delsol
; Working directory: /home/hhudson/public_html/goes-fast
; Date: Sun Dec  8 19:08:59 2002
 
infil = findfile('*.ps')
ii = infil(0)
tt = strmid(ii,0,4)+'/'
print,tt
;2002/
tt = strmid(ii,0,4)+'/'+strmid(ii,4,2)+'/'+strmid(6,2)+' '+$
  strmid(ii,9,2)+':'+strmid(ii,11,2)
tt = strmid(ii,0,4)+'/'+strmid(ii,4,2)+'/'+strmid(ii,6,2)+' '+$
  strmid(ii,9,2)+':'+strmid(ii,11,2)
print,tt
;2002/07/03 02:06
print,anytim(tt,/yoh)
;03-Jul-02 02:06:00.000
n_fil = n_elements(infil)
tt = strarr(n_fil)
for i = 0,n_fil-1 do begin & $
  ii = infil(i)
for i = 0,n_fil-1 do begin & $
  ii = infil(i) & $
  tt0 = strmid(ii,0,4)+'/'+strmid(ii,4,2)+'/'+strmid(ii,6,2)+' '+$
    strmid(ii,9,2)+':'+strmid(ii,11,2) & $
  tt(i) = anytim(tt0,/yoh) & $
endfor
help,tt
print,tt(10)
;06-Oct-02 02:09:00.000
rd_gev,tt(10),tt(10),gev
wh = tim2dset(gev,tt(10))
; % Subscript range values of the form low:high must be >= 0, < size, with low
;   <= high: TIM_IN.
help,gev
retall
help,gev
rd_gev,tt(0),tt(n_fil-1),gev
wh = tim2dset(gev,tt(10))
help,wh
help,gev
print,string(gev(wh).st$class)
;C1.8
print,string(gev(wh).st$class),gev(wh).peak
;C1.8         240