pro no3hires,msjwl,msjxs,angstrom=angstrom,nm=nm

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

msjwl=Dindgen(121)*0.2+648.2D0
IF angstrom THEN msjwl=10.D0*msjwl

msjxs=[5.7,3.7,5.7,4.3,4.8,3.4,3.5,4.7,4.1,3.9,4.5,5.1,4.9,5.1,5.3,6.7]
msjxs=[msjxs,5.8,5.4,5.9,5.5,6.9,5.5,7.7,7.3,5.9,8.5,7.1,7.5,8.4,7.9]
msjxs=[msjxs,8.3,8.7,9.6,9.6,11.3,12.5]
msjxs=[msjxs,11.4,12.2,11.8,12.4,12.7,14.,14.6,16.4,17.9,19.3,19.4,20.6]
msjxs=[msjxs,23.7,25.7,27.9,32.9,39.1,43.9,48.,56.4]
msjxs=[msjxs,65.4,75.6,86.2,106.7,119.6,136.8,150.,164.,181.5,189.6]
msjxs=[msjxs,185.5,178.7,171.9,166.8,154.]
msjxs=[msjxs,144.1,132.5,121.5,113.8,99.8,93.2,86.,78.2,70.9,66.5,61.3]
msjxs=[msjxs,60.1,53.8,49.4,44.6,42.2,39.6,35.,31.7,27.9]
msjxs=[msjxs,23.8,23.2,22.,19.9,17.1,16.2,16.7,14.5,14.4,12.7,12.3,12.3]
msjxs=[msjxs,11.8,11.7,11.1,10.4,11.6,11.1,9.1,9.1]
msjxs=[msjxs,9.6,8.6,11.7,10.5,9.6,8.9,8.6,11.4,8.,8.]*1.D-19

Return
END