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

miscellaneous modifications according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/
  • Property svn:executable set to *
File size: 150 bytes
Line 
1PRO 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
8END
Note: See TracBrowser for help on using the repository browser.