function search,array,object

num=size(array,/n_elements)
i=0l
result=-1
while (i lt num) and (result eq -1) do begin
  if array[i] eq object then result=i
  i=i+1
endwhile

return,result

end