;+
; Project     :	SOLAR-B - EIS
;
; Name        :	EIS_CPT_QUIET
;
; Purpose     :	Checks if the QUIET flag is set.
;
; Explanation :	The QUIET flag is held in a COMMON block internal to this routine.
;
; Use         :	< result = eis_cpt_quiet()>
;
; Inputs      :	None.
;
; Opt. Inputs : None.
;
; Outputs     : result   : INT flag
;                            0 : not set
;                            1 : set
;
; Opt. Outputs:	None.
;
; Keywords    : None.
;
; Calls       : None.
;
; Common      :	None.
;
; Restrictions:	None.
;
; Side effects:	None.
;
; Category    :	EIS_CPT.
;
; Prev. Hist. :	None.
;
; Written     :	Martin Carter RAL 08/10/04
;
; Modified    :	Version 0.0, 08/10/04, MKC
;
; Version     :	Version 0.0, 08/10/04
;-
;**********************************************************

FUNCTION eis_cpt_quiet, SET=set

  ; define COMMON block

  COMMON EIS_CPT_QUIET_COMMON, quiet_flag

  ; check if SET keyword used

  IF KEYWORD_SET(set) THEN quiet_flag = 1

  ; return status of quiet_flag
  ; allow for flag being undefined
  ; explicitly return 0 or 1

  IF KEYWORD_SET(quiet_flag) THEN RETURN, 1 ELSE RETURN, 0

END