PRO no2compare,ps=ps,restrict=restrict

no2j=ddread('\usask\893\crossect\no2johns.txt')
wlj=reform(no2j(1,*))
xsj=reform(no2j(2,*))

no2x=ddread('\usask\893\crossect\no2xsect.txt')
wlx=reform(no2x(0,*))
xsx=reform(no2x(1,*))

If N_Elements(ps) gt 0 then psopen,'\usask\893\crossect\no2compa.ps'

if n_elements(restrict) gt 0 then wlr=[400,550] else wlr=[200,700]

plot_io,wlx,xsx,title='Comparison of NO!i2!n Cross Sections' $
       ,xtitle='Wavelength (nm)',xrange=wlr $
       ,ytitle='Cross Section (cm!e-2!n)'
oplot,wlj,xsj,linestyle=1

if n_elements(ps) gt 0 then psclose

Return
End