;+
; NAME:
;	SMEI_RANGE
;
;
; PURPOSE:
;	Set the data range of a SMEI sequence
;
;
; CATEGORY:
;	CLI
;
;
; CALLING SEQUENCE:
;	smei_range, seqref, range[, range1]
;
;
; INPUTS:
;	seqref	objref	Object reference to the sequence.
;	range	float	2-element array giving a min to max data
;			range, or a scalar giving the minimum.
;
;
; OPTIONAL INPUTS:
;	range1	float	The maximum of the data range if RANGE is a
;			scalar
;
; KEYWORD PARAMETERS:
;	logarithmic	int	Whether to use logarithmic scaling or not.
;	kill		float	Set a range of values outside which
;				data are considered bad (2-element
;				array or a scalar == [-kill, kill])
;
; MODIFICATION HISTORY:
;	Original: 19/12/02; SJT
;	Add logarithmic and kill keywords: 30/3/04; SJT
;-

pro smei_range, seqref, range, range1, logarithmic = logarithmic, kill $
                = kill, help = help

if keyword_set(help) then begin
    self_help
    return
end

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

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

if n_params() eq 3 then seqref -> set_data_range, range, range1, $
  logarithmic = logarithmic, kill = kill $
else if n_params() eq 2 then seqref -> set_data_range, range, $
  logarithmic = logarithmic, kill = kill $
     else seqref -> set_data_range, logarithmic = logarithmic, kill = kill

end