PRO no3lores,wl,xs,angstrom=angstrom,nm=nm

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

in=ddread('\usask\893\crossect\no3xsect.txt')

wl=Reform(in(0,*))

xs=Reform(in(1,*))

; Pad cross section out to 8000 Angstrom
wl=[wl,Findgen(20)*50+7000.]
xs=[xs,Replicate(1E-20,20)]

IF nm THEN wl=wl/10.

Return
END