;+
; NAME: find_closest
;
; PURPOSE:
; 	Given an array, find the index whose value in that
; 	array is closest to a given number.
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2005-04-20 14:04:49 by Marshall Perrin 
;-


FUNCTION find_closest,array,value

	absdiff = abs(array-value)
	md = min(absdiff,min_subscript)
	return,min_subscript

end