xsize = 1024
ysize = 1024
image = fltarr(xsize, ysize)
openu, 1, dialog_pickfile(title = 'Select Raw Calibrated Image', $
            filter = '/export/home/jferrier/images/*cal.raw')
readu, 1, image
close, 1
window, /free, xsize = xsize, ysize = ysize
tvscl, image
end