dirs = [get_subdirs('/yd2/adsftp'), get_subdirs('/yd8/adsftp')]
 files00 = file_list(dirs, '*')
 split_files, files00, dir, filnam
 ss = uniq(filnam, sort(filnam)) 
 files0 = files00(ss)
 split_files, files0, dir, filnam

 files = files0

;split_files, files, dir, filnam &  ss = where(filnam ge 'PSK239.SAADF.A9203') &  files = files(ss)

;s0 = where(filnam gt 'PSK239.SAADF.A9201(T250001)')
;s1 = where(strpos(files0, '92_10') ne -1)	;dont do 92_10 thru 92_23 inclusive
;s2 = where(strpos(files0, '92_24') ne -1)
;files = [files0(s0(0):s1(0)-1), files0(s2(0):*)]

 for i=0,n_elements(files)-1 do begin & print, 'ADSFILE: ', files(i) & ads_into_pnt, files(i) & end

;for i=40,44 do do_ads, week='91_' + string(i,format='(i2.2)')
;for i=39,44 do do_ads, week='91_' + string(i,format='(i2.2)')

;for i= 3, 5 do do_ads, week='92_' + string(i,format='(i2.2)')
;for i=32,33 do do_ads, week='92_' + string(i,format='(i2.2)')

;for i= 5, 6 do do_ads, week='92_' + string(i,format='(i2.2)')
;for i=31,33 do do_ads, week='92_' + string(i,format='(i2.2)')
;for i= 3, 6 do do_ads, week='92_' + string(i,format='(i2.2)')
;do_ads, week='91_40'

;do_ads, 301, 340
;do_ads, /do_error
;do_ads,   0, 194
;do_ads,   0, 270
;do_ads, 200, 296
;do_ads, 200, 300

;ads_into_pnt, '/ydb/ads/PSK239.SAADF.A9202(T2400001)', run_time=run_time
;ads_into_pnt, '/ydb/ads/PSK239.SAADF.A9205(T0100001)', run_time=run_time
;ads_into_pnt, '/ydb/ads/PSK239.SAADF.A9201(T0100001)', run_time=run_time
end