source:
trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro
@
134
Last change on this file since 134 was 134, checked in by navarro, 18 years ago | |
---|---|
|
|
File size: 188 bytes |
Rev | Line | |
---|---|---|
[67] | 1 | PRO read_grib_end, num, offset |
[114] | 2 | ; |
3 | compile_opt idl2, strictarrsubs | |
4 | ; | |
[67] | 5 | |
6 | a = assoc(num, bytarr(4, /nozero), offset) | |
7 | endcode = string(a[0]) | |
8 | IF endcode NE '7777' THEN stop | |
9 | ||
10 | RETURN | |
11 | END |
Note: See TracBrowser
for help on using the repository browser.