function WMEAN, array
;+
;NAME:
;	WMEAN
;
;PURPOSE:
;	To compute the mean of any array
;
;CATEGORY:
;	G1- Simple calculations on statistical data.
;
;CALLING SEQUENCE:
;	Result = WMEAN(Array)
;
;INPUTS:
;	Array:	The data array.  Array may be any type except string.
;
;OUTPUTS:
;	WMEAN returns the mean of the values in the data array.
;		
;PROCEDURE:
;	WMEAN = TOTAL(Array)/N_ELEMENTS(Array)
;
;MODIFICATION HISTORY:
;   copyright (c) Amara Graps 1995, 1996.
;-

Return, TOTAL(Array)/N_ELEMENTS(Array)

END