; Creates a table of basic AR sub-image information
pro arinfo, fn=fn, rows=rows, cols=cols, lat=lat, lon=lon
                                                                                                       
close, 1
openw, 1, (fn+'/'+'info')
printf, 1, "NAR = "+strcompress(string(fn),/remove_all)
printf, 1, "height= "+strcompress(string(rows),/remove_all)+' pixels'
printf, 1, "width= "+strcompress(string(cols),/remove_all)+' pixels'
printf, 1, "lat= "+strcompress(string(lat),/remove_all)
printf, 1, "lon= "+strcompress(string(lon),/remove_all)
close, 1
                                                                                                       
end