;+
; @file_comments 
; 
; 
; @categories
; 
; 
; @param NUM 
;
;
; @param OFFSET
; 
;
; @returns
; 
; 
; @restrictions
; 
; 
; @examples
;
;
; @history
; 
;
; @version
; $Id$
;-
PRO read_grib_end,  num, offset
;
  compile_opt idl2, strictarrsubs
;

  a = assoc(num, bytarr(4, /nozero), offset)
  endcode = string(a[0])
  IF endcode NE '7777' THEN stop

  RETURN
END