;+
; NAME: TPBFACTOR
;
; PURPOSE:
;      To return the passband multiplicative factor corresponding
;      to a camera-filter combination.
;
; CATEGORY:
;
; CALLING SEQUENCE:
;      RESULT=TPBFACTOR(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 tpbfactor,cam,filt

; Set up OS-dependent parameters
@isitdos

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

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

FREE_LUN,unit

RETURN,pbs(5*cam+filt)
END