;+
;
; @file_comments
;
; @categories
;
; @param TOP_UVALUE
;
; @param NAME
;
; @returns
;
; @uses
;
; @restrictions
;
; @examples
;
; @history
;
; @version
; $Id$
;
; @todo
; seb
;
;-
FUNCTION extractatt, top_uvalue, name
;
  compile_opt idl2, strictarrsubs
;
   taille = size(top_uvalue)
   j = -1
   repeat BEGIN
      j = j+1
      if j EQ (size(top_uvalue))[2] then return, -1
   endrep until *top_uvalue[0, j] EQ name
   return, *top_uvalue[1, j]
end