w=[1180,1248,1302,1403,1524,1621,1669,1777,1937,2050,2144,2247,2310,2357,2487, $
   2659,2830,2930,3064]
w=float(w)
qe=[.1516,.1287,.1093,.0816,.1024,.1497,.1585,.1655,.1716,.1711,.1769,.1734, $
  .1782,.1678,.1470,.1044,.0496,.0217,.0059]
ww=indgen(190)*10.+1180.
f=spline(w,qe,ww)
fw=spline(w,qe,[1236.,1469.])
plot,w,qe,psym=1,tit='RAS/Cal CsTe PMT DQE Cal of 1996 at BATC', $
  xtit='Wavelength (Angstroms)',ytit='DQE',xs=3
oplot,ww,f
oplot,[1236,1236],[1,1]*fw(0),psym=4
oplot,[1469,1469],[1,1]*fw(1),psym=4
xyouts,1240,.135,string(fw(0),'(f6.4)')+'@1236'
xyouts,1500,.085,string(fw(1),'(f6.4)')+'@1469'

end