; ----------------------------------------------------------------------
;  Find median of an array of float (4 byte real) numbers.
;  Input: arr[] (array of values which will NOT be sorted).
;         nkey  (number of elements in the key array).
;         key[] (key array containing array element positions within arr[]).
;  Returns the median value of the key'ed subset of values.
;*/
function cfind_median, nn, arr
  return, median(arr[0:nn-1])
end