pro ccd_filtprofile,lambda,ftype,fwid,ftnam,prof,ab=ab
; This routine constructs filter profiles corrected for 4-shooter CCD response
; on the wavelength interval lambda, using routine filtprofile.
; See that routine for an explanation of arguments.

; constants
; nominal CCD response vs lambda (nm).
lamccd=300.+50.*findgen(17)
qeccd=[.72,.8,.76,.8,.83,.87,.91,.93,.92,.9,.84,.71,.55,.37,.19,.07,.01]

filtprofile,lambda,ftype,fwid,ftnam,prof0
index=(lambda-300.)/50.
qe=interpolate(qeccd,index,/cubic)
prof=prof0*qe

end