FUNCTION findline, 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, j
end