;
pro pltxyline
@pltdat.h
;
; Make xy line plot:
;
;frame = {		$
;  hdr:hdr,		$
;  nx:nx,		$
;  xx:xx,		$
;  xlab:xlab,		$
;  ny:ny,		$
;  yy:yy,		$
;  ylab:ylab,		$
;  zz:zz,		$
;  toplab:hdr(0),	$
;  infolab:hdr(1),	$
;  botlab:hdr(2)		}
;
xur = .96 & yur = .90
xll = .18 & yll = .20
pltpos = [xll,yll,xur,yur]
xmid = .5*(xll+xur)
;
rangeoff = .13
chsize = 1.2
if keyword_set(cgm) then begin
  chsize = .85
  rangeoff = .10
endif
;
; If nx==1, then plot field on x-axis, yy on y-axis:
;
if frame.nx eq 1 then begin
  fminmax, frame.zz,frame.ny,rmin,rmax,spval
  xrange = [rmin,rmax]
  minmaxlab = 'MIN, MAX = ' + string(format="(e12.4)",rmin) + $
                              string(format="(e12.4)",rmax)
  fminmax, frame.yy,frame.ny,rmin,rmax,spval
  yrange = [rmin,rmax]
  zz = frame.zz(where(frame.zz ne spval))
  if xyline.log10 le 0 then begin
    plot,zz,frame.yy,position=pltpos,ytitle=frame.ylab,$
      xtitle=frame.xlab,xrange=xrange,title=frame.infolab,$
      yrange=yrange,max_value=spval-100.
  endif else begin
    plot_io,zz,frame.yy,position=pltpos,ytitle=frame.ylab,$
      xtitle=frame.xlab,xrange=xrange,title=frame.infolab,$
      yrange=yrange,max_value=spval-100.
  endelse
endif
;
; If ny==1, then plot xx on x-axis, field on y-axis:
;
if frame.ny eq 1 then begin
  fminmax, frame.zz,frame.nx,rmin,rmax,spval
  yrange = [rmin,rmax]
  minmaxlab = 'MIN, MAX = ' + string(format="(e12.4)",rmin) + $
                              string(format="(e12.4)",rmax)
  fminmax, frame.xx,frame.nx,rmin,rmax,spval
  xrange = [rmin,rmax]
  if xyline.log10 le 0 then begin
    plot,frame.xx,frame.zz,position=pltpos,ytitle=frame.ylab,$
      xtitle=frame.xlab,yrange=yrange,title=frame.infolab,$
      xrange=xrange
  endif else begin
    plot_io,frame.xx,frame.zz,position=pltpos,ytitle=frame.ylab,$
      xtitle=frame.xlab,yrange=yrange,title=frame.infolab,$
      xrange=xrange
  endelse
endif
xyouts,xmid,yur+.05,frame.toplab,align=.5,/norm,charsize=chsize
xyouts,xmid,yll-.10,minmaxlab,align=.5,/norm,charsize=chsize
xyouts,xmid,yll-.14,frame.botlab,align=.5,/norm,charsize=chsize
return
end