;+
; NAME: PBFACTOR
;       
; PURPOSE:
;      To return the passband multiplicative factor corresponding
;      to a camera-filter combination.
;
; CATEGORY:
;       
; CALLING SEQUENCE:
;      RESULT=PBFACTOR(CAM,FILT)
;
; INPUTS:
;      CAM: Camera number.
;
;      FILT: Filter number.
;
; KEYWORD PARAMETERS:
;      None.
;
; OUTPUTS:
;      The passband multiplicative factor.
;
; COMMON BLOCKS:
;      None.
;
; SIDE EFFECTS:
;      None.
;
; RESTRICTIONS:
;      None.
;
; PROCEDURE:
;      ...
;
; MODIFICATION HISTORY:
;      Written August 1994, by T A Oliynyk.     
;       Trimmed April 1995 by D P Steele.
;-

FUNCTION pbfactor,cam,filt

; Set up OS-specific parameters.

@isitdos

OPENR,unit,tproot+dd+'cwl.rpb',/GET_LUN

wlgth=FLTARR(10)
pbs=wlgth
READF,unit,wlgth,pbs

FREE_LUN,unit

RETURN,pbs(5*cam+filt)
END