;+
; NAME: find fwXm
;
; PURPOSE:
; 	Find the full width at X*max. 
; 	i.e. X = 0.5 for FWHM.
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2005-05-04 14:24:42 by Marshall Perrin 
;-


function find_fwxm,array,fraction

	max = max(array)
	wmax = where(array eq max)
	bottom = find_closest(array[0:wmax-1],fraction*max)
	top    = find_closest(array[wmax:*],fraction*max)+wmax
	
	return,top-bottom+1

end