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

change *.pro file properties (del eof-style, del executable, set keywords Id
  • Property svn:keywords set to Id
File size: 188 bytes
Line 
1PRO read_grib_end,  num, offset
2;
3  compile_opt idl2, strictarrsubs
4;
5
6  a = assoc(num, bytarr(4, /nozero), offset)
7  endcode = string(a[0])
8  IF endcode NE '7777' THEN stop
9
10  RETURN
11END
Note: See TracBrowser for help on using the repository browser.