PRO OUTPLOT,X0, Y, xst0, $
        channel=channel, $
        clip=clip, color=color, device=device, $
        linestyle=linestyle, noclip=noclip, data=data, $
        normal=normal, nsum=nsum, polar=polar, $
        psym=psym, symsize=symsize, $
        t3d=t3d, thick=thick

quiet_save = !quiet
!quiet=1
on_error,2
COMMON UTCOMMON, UTBASE, UTSTART, UTEND, xst_plot
;
;overplot on UTPLOT
;;utbase=getutbase(0)
;;setutbase,utstring ;set new base time
;;utbasenew=getutbase(0)
;;setutbase,atime(utbase)
;;oplot,x+utbasenew-utbase,y

;--------------------- MDM added
if (n_elements(xst0) ne 0) then begin
    ex2int, anytim2ex(xst0), xst_msod, xst_ds79
    xst = [xst_msod, xst_ds79]
    off = int2secarr(xst, xst_plot)
    off = off(0)    ;convert to scalar
end else begin
    xst = xst_plot  ;use the value that was used for UTPLOT
    off = 0
end
;
siz = size(x0)
typ = siz( siz(0)+1 )
if (typ eq 8) then x = int2secarr(x0, xst) else x = x0 + off
;
psave = !p
        !p.channel=fcheck(channel,!p.channel)
        !p.clip=fcheck(clip,!p.clip)
        !p.color=fcheck(color,!p.color)
        !p.linestyle=fcheck(linestyle,!p.linestyle)
        !p.noclip=fcheck(noclip,!p.noclip)
        !p.nsum=fcheck(nsum,!p.nsum)
        !p.psym=fcheck(psym,!p.psym)
        !p.t3d=fcheck(t3d,!p.t3d)
        !p.thick=fcheck(thick,!p.thick)

;;oplot,x,y, data=fcheck(data), device=fcheck(device), $
;;        normal=fcheck(normal), $
;;        polar=fcheck(polar), symsize=fcheck(symsize,1)
oplot,x,y, polar=fcheck(polar), symsize=fcheck(symsize,1)   ;MDM patch 23-Oct-92 because of change to IDL

!p = psave
;
;.........................................................................

!quiet = quiet_save
return
end