;+
; NAME:
;	SMEI_SAVE
;
;
; PURPOSE:
;	Save a SMEI sequence to an IDL SAVE file.
;
;
; CATEGORY:
;	CLI
;
;
; CALLING SEQUENCE:
;	smei_save, seqref, file
;
;
; INPUTS:
;	seqref	objref	The SMEI sequence to save.
;	file	string	The file to which to save.
;
;
; MODIFICATION HISTORY:
;	Original: 18/12/02; SJT
;-

pro smei_save, seqref, file, help = help


if keyword_set(help) then begin
    self_help
    return
endif

if not obj_valid(seqref) then begin
    smei_msg, /alert,  'SMEI_SAVE requires an object reference'
    return
endif

if not obj_isa(seqref, 'SMEI_SEQUENCE') then begin
    smei_msg, /alert, $
              'The object you are trying to save is not a ' + $
              'SMEI_SEQUENCE'
    return
endif

seqref -> save, file

end