pro OOZE, XPROC , keep=KEEP, noplot=NOPLOT

@compile_opt.pro		; On error, return to caller

;+
; NAME:
;	OOZE
; PURPOSE:
; CALLING SEQUENCE:
;	OOZE, XPROC, keep=KEEP,noplot=NOPLOT
; OPTIONAL INPUTS:
;	XPROC		string; name of the plot procedure to be executed
;	KEEP		if set, the PS file is not deleted after printing
;	NOPLOT		if set, the PS file is not printed and not deleted
; CALLS:
;	call_procedure, set_plot, message, SPITPLOT
; COMMON BLOCKS:
;	common	OOZE_PLT,	OOZE_FNC
; RESTRICTIONS:
; PROCEDURE:
;	The graphics device is set in IDL_STARTUP.PRO (variable !ThePrinter).
;	The plot file IDL.+'!ThePrinter' is submitted
;	to the print queue and is deleted after printing (both actions can be
;	suppressed by switches KEEP and NOPLOT)
; MODIFICATION HISTORY:
;	AUG-1992, Paul Hick (UCSD)
;-

common  OOZE_PLT,	OOZE_FNC

if !d.NAME eq !TheTerminal then begin
    davis, 1  &  twin, 2	; Alpha-numeric screen
endif

if n_elements ( XPROC ) eq 0 then begin
    if n_elements ( OOZE_FNC ) ne 0 and OOZE_FNC ne '' then	$
	XPROC = OOZE_FNC	$
    else begin
	XPROC = 'MAP'  &  echo, 'Procedure', XPROC
    endelse
endif

OLDDEV = !d.NAME  &  set_plot, !ThePrinter

XPROC = strupcase (XPROC)
message, /info, 'Running   '+XPROC
call_procedure, XPROC
message, /info, 'Completed '+XPROC

if not keyword_set(NOPLOT) then begin
    PLOTFILE = 'IDL.'+!ThePrinter
    if keyword_set(KEEP) then spitplot, PLOTFILE else spitplot, PLOTFILE, /delete
endif else device, /close

set_plot, OLDDEV

if n_elements( OOZE_FNC ) ne 0 then OOZE_FNC = ''

return  &  end