source: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/findline.pro @ 150

Last change on this file since 150 was 150, checked in by navarro, 18 years ago

english and nicer header (3a)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 469 bytes
Line 
1;+
2; @file_comments
3;
4;
5; @categories
6;
7;
8; @param TOP_UVALUE
9;
10;
11; @param NAME
12;
13;
14; @returns
15;
16;
17; @uses
18;
19;
20; @restrictions
21;
22;
23; @examples
24;
25;
26; @history
27;
28;
29; @version
30; $Id$
31;
32; @todo
33; seb
34;
35;-
36FUNCTION findline, top_uvalue, name
37;
38  compile_opt idl2, strictarrsubs
39;
40   taille = size(top_uvalue)
41   j = -1
42   repeat BEGIN
43      j = j+1
44      if j EQ (size(top_uvalue))[2] then return, -1
45   endrep until *top_uvalue[0, j] EQ name
46   return, j
47end
Note: See TracBrowser for help on using the repository browser.