PRO plot_M6_7_g,m,n ;m: 6= Mariner 6 or 7=Mariner 7 ;n record number: n=0 is wavelength so use 1 to 8 for spectra set_plot,'x' plot_setup,2,2 window,0,xsize=925,ysize=600 close,11 openr,11,'Mariner'+strtrim(m,2)+'_G.dat',/swap_if_big_endian aa=assoc(11,fltarr(462)) wv=aa(0) alt=aa[460,n] plot,wv,aa(n),xrange=[1100,2100],yrange=[0,250],$ xtitle='Wavelength, A',ytitle='Data numbers' xyouts,1400,230,'Mariner ',charsize=2 xyouts,1400,215,'Altitude ',charsize=2 xyouts,1600,230,strtrim(m,2),charsize=2 xyouts,1600,215,strtrim(fix(alt),2),charsize=2 close,11 return end PRO plot_setup,th,ch !x.style=1 !y.style=1 !p.charsize=ch !p.charthick=th !p.thick=th !x.thick=th !y.thick=th return end