;+
;
; NAME:  GET_HXT_CAL_WIDTHS
;
;
; PURPOSE:  Reads the database file giving the PHA channel widths (relative)
;	for each of  64 channels for each of 64 sensors
;
;
; CATEGORY: YOHKOH/HXT
;
;
; CALLING SEQUENCE: Widths = GET_HXT_CAL_WIDTHS()
;
;
; CALLED BY:
;
;
; CALLS:
;	LOC_FILE, BREAK_PATH
;
; INPUTS:
;       none explicit,
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       Widths:  Result of the function, fltarr(64channels x 64 sensors)
;
; OPTIONAL OUTPUTS:
;	none
;
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	ras, 30-jan-1996
;-
function get_hxt_cal_widths, x

path=break_path(!path)
width_file = loc_file('adcp10.dat', path=path)
width = fltarr(64,64)
temp = fltarr(64)
openr, lu, /get, width_file
line = ''
readf, lu,  line
for i=0, 63 do begin
	readf, lu,  line
	readf, lu, temp
	width(0,  i)= temp
endfor
free_lun, lu

return, 1./width
end