;+ ; PROJECT: ; SDAC ; NAME: ; Load_Main ; ; PURPOSE: ; This routine extracts a set of variables from the SPEX common blocks. ; ; CATEGORY: ; SPEX ; ; CALLING SEQUENCE: ; result = SPEX_OUT( /var1, /var2, /var3, ...) ; ; CALLS: ; none ; ; KEYWORD INPUTS: ; Variable names found in SPEX_COMMONS, e.g. e_in ; ; OPTIONAL INPUTS: ; none ; ; OUTPUTS: ; none explicit, only through commons; ; ; OPTIONAL OUTPUTS: ; none ; ; KEYWORDS: ; none ; COMMON BLOCKS: ; SPEX_PROC_COM, SPEX_HOLD_COM, SPEX_SETUP_COM ; ; SIDE EFFECTS: ; none ; ; RESTRICTIONS: ; none ; ; PROCEDURE: ; none ; ; MODIFICATION HISTORY: ; Version 1, richard.schwartz@gsfc.nasa.gov, 4-feb-1998. ;- function spex_out, _extra=_extra @spex_commons if data_chk(_extra,/struc) then patterns = tag_names(_extra) out = { zdummy:0 } n=n_elements(patterns) for i=0,n-1 do begin temp = spex_current(patterns(i)) out = add_tag(out, temp, patterns(i)) endfor return, out(0) end