PRO plot_M6_7_n,m,n ;m: 6 is 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)+'_N.dat',/swap_if_big_endian aa=assoc(11,fltarr(482)) wv=aa(0) alt=aa[480,n] sza=aa[479,n] plot,wv,aa(n),xrange=[1900,4000],yrange=[0,250],$ xtitle='Wavelength, A',ytitle='Data numbers' xyouts,2100,230,'Mariner ',charsize=2 xyouts,2100,215,'Altitude ',charsize=2 xyouts,2100,200,'SZA ',charsize=2 xyouts,2400,230,strtrim(m,2),charsize=2 xyouts,2400,215,strtrim(fix(alt),2),charsize=2 xyouts,2400,200,strtrim(fix(sza),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