amin.pro

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

; $Id: amin.pro,v 1.2 2002/12/11 18:39:09 riccardi Exp $
;+
; AMIN
;
; same as min, but it returns the N-dimensional subscript
; in Min_Subscript, where N is the number of dimansions of
; the input array
;-
function amin, array, idx_vec, MAX=maxv, NAN=nan

	if n_params() le 1 then begin
		minv = min(array, MAX=maxv, NAN=nan)
	endif else begin
		minv = min(array, idx, MAX=maxv, NAN=nan)
		idx_vec = idx_array(idx, array)
		return, minv
	endelse
end