pro SETUP_OOZE

@compile_opt.pro		; On error, return to caller

;+
; NAME:
;	SETUP_OOZE
; PURPOSE:
;	Setup common block for OOZE function
; CALLING SEQUENCE:
;	setup_ooze
; CALLS:
;	help
; COMMON BLOCKS:
;	common	OOZE_PLT , OOZE_FNC		(shared with OOZE)
;
;	OOZE_FNC	string containing the name of the procedure that calls
;			SETUP_OOZE
; PROCEDURE:
;	The name of the calling procedure is stored in the common block
;	OOZE_PLT. If the procedure OOZE is called without an argument the
;	procedure, OOZE executes the procedure stored in the common block.
; MODIFICATION HISTORY:
;	MAY-1993, Paul Hick (UCSD)
;-

common	OOZE_PLT , OOZE_FNC

help, calls=OOZE_FNC
OOZE_FNC = strmid (OOZE_FNC(1), 0, strpos(OOZE_FNC(1),' ') )

return  &  end