WMEAN Purpose
  
  Calculates the weighted mean of a set of measurements.
Category
     Statistics
Calling Sequence
  
  result = wmean(val, dval, [/nan, error = error]) 
    
Inputs
     val : A vector of data values
     dval: The error on each data value
Keyword Parameters
  
  nan: If set, treat NANs as missing data 
  
  error: Set to a named variable to hold the error on the weighted
                  mean 
    
Outputs
     The weighted mean
Modification History
  
  April 2009 Written by Chris Beaumont 
  
  April 23 2009 fixed integer truncation bug