;==========================================================================
;Change History:
; Developer          Date       Release         Description
; ---------          ----       -------         ---------------------
;  ELH               06/00      v1.0            Original Implementation
;==========================================================================


;===============================================================================
; l_GetStruct
;    Used for debug purposes.
;===============================================================================
PRO l_GetStruct, inst, expr, vinst, GROUP=group, COLLAPSE=collapse, RAW=raw
    

    print, '----------------------------------------'
    key = udf_key(['IMAGE', 'IMAGE1', inst, expr, vinst])

    case 1 of
    	Keyword_Set(group): begin
	    print, inst, ':', expr, ':', '/GROUP'
    	    print, '----------------------------------------'
	    fh  = udf_open(key, [2001, 54, 00, 00, 00], $
                            [2001, 54, 23, 59, 59], $
                            SFORMAT=2)
	    end
    	Keyword_Set(collapse): begin
	    print, inst, ':', expr, ':', '/COLLAPSE'
    	    print, '----------------------------------------'
	    fh  = udf_open(key, [2001, 54, 00, 00, 00], $
                            [2001, 54, 23, 59, 59], SFORMAT=1)
	    end
        else: begin
	    print, inst, ':', expr, ':', '/RAW'
    	    print, '----------------------------------------'
	    fh  = udf_open(key, [2001, 54, 00, 00, 00], $
                            [2001, 54, 23, 59, 59], SFORMAT=0)
	    end
    endcase
    d = udf_read(fh)
    help, d, /struct
    help, d.btime, /struct
    print, '----------------------------------------'
        
    udf_close, fh
END