amax.pro

IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。

; $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
	endelse
end