; $Id: amax.pro,v 1.2 2002/12/11 18:39:09 riccardi Exp $;+; AMAX;; same as max, but it returns the N-dimensional subscript; in Max_Subscript, where N is the number of dimansions of; the input array;-function amax, array, idx_vec, MIN=minv, NAN=nan	if n_params() le 1 then begin		maxv = max(array, MIN=minv, NAN=nan)	endif else begin		maxv = max(array, idx, MIN=minv, NAN=nan)		idx_vec = idx_array(idx, array)		return, maxv	endelseend