;+
; NAME:
;       MUXBLEED_LOOKUP
;
; PURPOSE:
;       Calculate mux-bleed lookup table
;
; INPUTS:
;       Which pixel in the lookup table to return
;
; KEYWORD PARAMETERS:
;
;       CHANNEL      - IRAC channel number (should be 1 or 2)
;
; OUTPUTS:
;       Value of lookup table at requested pixel
;
; COMMON BLOCKS:
;       None.
;
; RESTRICTIONS:
;       Does not work for Channel 2 (yet), returns -1 in that case.
;       (Not intended for Channels 3 and 4).
;
; PROCEDURE:
;       lookup = muxbleed_lookup(100., CHANNEL = channel)
;
; COMMENTS:
;	Only uses exponential; doesn't match Hora document for first 10 pixels.
;
; MODIFICATION HISTORY:
;       DS '03nov14 - written
;-
function muxbleed_lookup, n,                 $
                    CHANNEL = channel

     if n_elements(CHANNEL)    eq 0 then CHANNEL = 1

     if CHANNEL eq 1 then begin
	A =  25.715
	B = -0.020951
     endif

     lookup = A * exp(b*n)
     return, lookup
  
     end