PRO no2xsect,no2wl,no2xs,show=show,angstrom=angstrom,nm=nm

IF N_Elements(angstrom) EQ 0 THEN angstrom=0
IF N_Elements(nm) EQ 0 THEN nm=0

IF N_Elements(show) EQ 0 THEN show=0

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

IF Keyword_Set(show) THEN BEGIN
    Plot_io,no2wl,no2xs,title='NO!i2!n Cross Section' $
           ,xtitle='Wavelength (nm)' $
           ,ytitle='Cross Section (cm!e-2!n)'
    ENDIF

IF Keyword_Set(angstrom) THEN no2wl=no2wl*10.

Return
End