NAME:
	LAMDAD
 PURPOSE:
	Calculate FCS drive B address given wavelength.
	Refractive index corrections are applied.

 CALLING SEQUENCE:
	ADDRESS = LAMDAD(CHAN,LAMDA)
	ADDRESS = LAMDAD(CHAN,LAMDA,TEMPXL)

 INPUTS:
	CHAN   = FCS channel number (1 to 7)
	LAMDA  = Scalar containing FCS wavelength.

 OPTIONAL INPUT PARAMETERS:
	TEMPXL = Temperature of crystal in C. If not supplied,
		 a default value of 20 (temp0) is used.

 OUTPUTS:
	FCS drive B address is returned as a floating point scalar.

 CALLS: ***
	WLFCS
 CALLED BY:
	FTEMAP, temcal
 SIDE EFFECTS:
	If an invalid channel is requested, (ie., not between 1 and 7),
	LAMDAD will issue a message and return undefined value.

 RESTRICTIONS:
	CHAN, LAMDA must be scalars.

 PROCEDURE:
	Method is to calculate a zeroth-order address from the Bragg relation.
	Then Jim Lemen's WLFCS.PRO is used to find exact address by bisection.

 MODIFICATION HISTORY:
	Mar-1987-GLS-ARC

 NAME:  
             LISTBCS
 PURPOSE:
             to provide GUI interface to BCS event catalog
 CATEGORY:  
             widgets
 CALLING SEQUENCE: 
             LISTBCS
 CALLS: ***
	CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], LISTBCS_EVENT, LOC_FILE [1]
	LOC_FILE [2], LOC_FILE [3], TWIDGET, XMANAGER, XREGISTERED, concat_dir [4]
 CALLED BY:
	SDAC_CAT
 RESTRICTIONS:
             requires X-windows
 MODIFICATION HISTORY:                           
              written Jul'92 by DMZ (ARC)