function GET_MONEXP_DATA,type
;+
; NAME:
;	GET_MONEXP_DATA
;
; PURPOSE:
;	This function returns the monitor data of datatype = type 
;	from the common block.
;
; CATEGORY:
;	LASCO data analysis
;
; CALLING SEQUENCE:
;	Result = GET_MONEXP_DATA(Type)
;
; INPUTS:
;	Type:	The data type to be returned
;
; OUTPUTS:
;	This function returns an array of the image statistics generated
;	for the exposure time evaluation for the datatype specified as
;	the input parameter.
;
; COMMON BLOCKS:
;	MONEXP_DATA:  Contains the monexp data
;
; RESTRICTIONS:
;
; PROCEDURE:
;
; MODIFICATION HISTORY:
; 	Written by:	RA Howard, 2 June 1997
;
;	@(#)get_monexp_data.pro	1.6 11/20/97 LASCO IDL LIBRARY
;-

common monexp_data,date,time,fname,expt,exp0,expcmd,exp1,exp2,exp3, $
       filter,polar,nlebsum,nccdsum, $
       avg_whole,sig_whole,med_whole,min_whole,max_whole,nz_whole,mode_whole, $
       avg,sigma,medval,minval,maxval,nzero,mode
;
sz = SIZE(time)
IF (sz(0) EQ 0)  THEN BEGIN
   PRINT,'%ERROR:  GET_MONEXP_DATA:  READ_MONEXP_DATA must be called first'
   RETURN,-1
ENDIF
IF (N_PARAMS() NE 1)  THEN type=''
CASE STRUPCASE(type) of
  'DATE':    RETURN,date
  'TIME':    RETURN,time
  'FNAME':   RETURN,fname
  'EXPT':    RETURN,expt
  'EXP0':    RETURN,exp0
  'EXP1':    RETURN,exp1
  'EXP2':    RETURN,exp2
  'EXP3':    RETURN,exp3
  'EXPCMD':  RETURN,expcmd
  'FILTER':  RETURN,filter
  'POLAR':   RETURN,polar
  'NLEBSUM': RETURN,nlebsum
  'NCCDSUM': RETURN,nccdsum
  'AVG_WHOLE': RETURN,avg_whole
  'SIG_WHOLE':   RETURN,sig_whole
  'MED_WHOLE':  RETURN,med_whole
  'MIN_WHOLE':  RETURN,min_whole
  'MAX_WHOLE':  RETURN,max_whole
  'NZ_WHOLE':   RETURN,nz_whole
  'MOD_WHOLE':    RETURN,mode_whole
  'AVERAGE': RETURN,avg
  'SIGMA':   RETURN,sigma
  'MEDVAL':  RETURN,medval
  'MINVAL':  RETURN,minval
  'MAXVAL':  RETURN,maxval
  'NZERO':   RETURN,nzero
  'MODE':    RETURN,mode
  ELSE:      BEGIN
                PRINT,'Data type was not recognized: ',type
                PRINT,'Valid data types are: '
                PRINT,'    DATE       TIME      FNAME     EXPT'
                PRINT,'    EXP0       EXP1      EXP2      EXP3'
                PRINT,'    EXPCMD     FILTER    POLAR     NLEBSUM'
                PRINT,'    NCCDSUM    AVERAGE   SIGMA     MEDVAL'
                PRINT,'    MINVAL     MAXVAL    NZERO     MODE'
                PRINT,'    AVG_WHOLE  SIG_WHOLE MED_WHOLE MIN_WHOLE'
                PRINT,'    MAX_WHOLE  NZ_WHOLE  MOD_WHOLE'
                PRINT
             END
ENDCASE
RETURN,-1
END