pro lam2bin, l_arr, lam_st, lam_end, bin_st, bin_end
;+
;   Procedure to return the start and stop bins in a wavelength array
;   corresponding to start and stop wavelengths
;
;  Input:     l_arr       array of wavelengths, bins are assumed to be the
;                         indices in this array
;             lam_st      start wavelength
;             lam_end     end wavelength
; 
;  Ouput:     bin_st      bin corresponding to lam_st
;             bin_end     bin corresponding to lam_end
;
;
;  Use:
;        IDL> lam2bin, l_arr, lam_st, lam_end, bin_st, bin_end
;
;
;   CDP  Feb 92
;
;-

bins = where(l_arr ge lam_st and l_arr le lam_end)
bin_st = bins(0)
bin_end = bins(n_elements(bins)-1)

end