; IDL Version 5.3 (linux x86)
; Journal File for sxt_co@isass1.solar.isas.ac.jp
; Working directory: /home/sxt_co/idl
; Date: Thu Feb 15 14:15:46 2001
 
infil = findfile('/nfs_isass/db_isass5/sswdb/ydb/sfd/sfd00*')
help,infil
n_inf = n_elements(infil)
al = intarr(n_inf)
dag = intarr(n_inf)
for i = 0, n_inf-1 do begin 
  rd_roadmap,infil(i),rm
  fmt_timer,rm
  al(i) = n_elements(thinal_index(rm))
  dag(i) = n_elements(dag_index(rm))
endfor
wdef,0
!p.multi = [0,2,2]
plot,al,psym=10,tit='Thin Al SFD counts'
plot,dag,psym=10,tit='Dagwood SFD counts'  
end