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