;; $Id: value_in_array.pro,v 1.7 2011/09/14 16:44:37 areynolds Exp $



function value_in_array, value, array, index=indices, count=counts



return_data = bytarr(n_elements(value))

indices = lonarr(n_elements(value))

counts = lonarr(n_elements(value))

for i=0l,n_elements(value)-1 do begin

    temparr = (value[i] eq array)

    counts[i] = total(temparr)

    return_data[i] = max(temparr,index)

    indices[i] = index

endfor



invalid = where(return_data eq 0,count)

if count gt 0 then $

  indices[invalid] = -1



return, return_data

end