source:
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/extractatt.pro
@
134
Last change on this file since 134 was 134, checked in by navarro, 18 years ago | |
---|---|
|
|
File size: 272 bytes |
Line | |
---|---|
1 | FUNCTION extractatt, top_uvalue, name |
2 | ; |
3 | compile_opt idl2, strictarrsubs |
4 | ; |
5 | taille = size(top_uvalue) |
6 | j = -1 |
7 | repeat BEGIN |
8 | j = j+1 |
9 | if j EQ (size(top_uvalue))[2] then return, -1 |
10 | endrep until *top_uvalue[0, j] EQ name |
11 | return, *top_uvalue[1, j] |
12 | end |
Note: See TracBrowser
for help on using the repository browser.