;+
;  Name:
;       READ_SPLINE
;
;  Category:
;	BATSE
;  Call:
;	read_coef, spec_lld
;
;  Purpose:
;
;     This subroutine reads in all necessary coefficients stored in 
;     external data files for the light/energy calibration
;
;      Input:
;	spec_lld: LLD channel for SPEC detector
;       
;     Output:
;        spline_com--common block with spline coefficients for L/E curve
;
;    
;  Common Blocks:
;	spline_com
;
;  History:
;	RAS, copied from BSAS, 1991
;
;               RAS, 7-Jul-1997, changed PERM_DATA to SSWDB_BATSE
;-
;c
      pro read_spline
      common spline_com,break,c0,c1,c2,c3
 
;c
;c
;c     Get data for L/E curve
;c      

;read in ASCII file of SCOEFF.PRO, parameterization of light per unit energy
;loss (L/E) as a function of photon energy
 
	sc = dblarr(5,58)
	openr,lu,/get,concat_dir(getenv('SSWDB_BATSE'),'scoeff.dat')
	readf,lu,sc
	free_lun,lu
	sc = transpose(sc)
	break = sc(*,4)
	c0    = sc(*,0)
	c1    = sc(*,1)
	c2    = sc(*,2)
	c3    = sc(*,3)

      return
      end