pro check_ch3ohA_04may
;
;------------------------------------------------------------------------------
;   Quick and dirty procedure to see which May 4 CH3OH_A images are bad
;------------------------------------------------------------------------------
;
;   Read in the data
;
a = ' '
afiles = ['']
openr, 1, 'ch3ohA_04may_a.list'
while not(eof(1)) do begin
    readf, 1, a
    afiles = [afiles,a]
  endwhile
close, 1
afiles = afiles[1:*]
bfiles = ['']
openr, 1, 'ch3ohA_04may_b.list'
while not(eof(1)) do begin
    readf, 1, a
    bfiles = [bfiles,a]
  endwhile
close, 1
bfiles = bfiles[1:*]
;
;   Loop through the images
;
window, 0, xs=256, ys=256
for i = 0, n_elements(afiles)-1 do begin
    print, ' '
    print, 'File is '+afiles[i]
    im = readfits(afiles[i])
    tv, hist_equal(im)
    g = get_kbrd(1)
  endfor
for i = 0, n_elements(bfiles)-1 do begin
    print, ' '
    print, 'File is '+bfiles[i]
    im = readfits(bfiles[i])
    tv, hist_equal(im)
    g = get_kbrd(1)
  endfor
;
;   Procedure termination
;
return
end