pro plot_break,x,y,x_break=x_break,y_break=y_break, $
subs_break=subs_break,xrange=xrange,yrange=yrange,noclip=noclip, $
color=color,linestyle=linestyle,title=title,psym=psym, $
subtitle=subtitle,font=font,xmargin=xmargin,ymargin=ymargin, $
xminor=xminor,yminor=yminor,xticks=xticks,xstyle=xstyle, $
yticks=yticks,ystyle=ystyle,xtitle=xtitle,ytitle=ytitle, $
xtickv=xtickv,ytickv=ytickv,xtickn=xtickn,ytickn=ytickn, $
symsize=symsize

;	Plots a curve having missing points.


if n_elements(linestyle) le 0 then linestyle=0
if n_elements(color) le 0 then color=!p.color
if n_elements(xstyle) le 0 then xstyle=0
if n_elements(ystyle) le 0 then ystyle=0
if n_elements(noclip) le 0 then noclip=0
if n_elements(title) le 0 then title=' '
if n_elements(subtitle) le 0 then subtitle=' '
if n_elements(font) le 0 then font=-1
if n_elements(xmargin) le 0 then xmargin=[10,3]
if n_elements(ymargin) le 0 then ymargin=[4,2]
if n_elements(xminor) le 0 then xminor=0
if n_elements(yminor) le 0 then yminor=0
if n_elements(xticks) le 0 then xticks=0
if n_elements(yticks) le 0 then yticks=0
if n_elements(xtitle) le 0 then xtitle=''
if n_elements(ytitle) le 0 then ytitle=''
if n_elements(xtickv) le 0 then xtickv=0
if n_elements(ytickv) le 0 then ytickv=0
if n_elements(xtickn) le 0 then xtickn=''
if n_elements(ytickn) le 0 then ytickn=''
if n_elements(psym) le 0 then psym=0
if n_elements(symsize) le 0 then symsize=1

if n_elements(xrange) le 0 then xrange=[min(x),max(x)]
if n_elements(yrange) le 0 then yrange=[min(y) < 0, max(y)]

	CASE 1 OF

n_elements(x_break) gt 0:	index0=where(x ne x_break)

n_elements(y_break) gt 0:	index0=where(y ne y_break)

n_elements(subs_break) gt 0:	index0= $
		where(indgen(n_elements(x)) ne subs_break)

ELSE:				index0=where(y)

	ENDCASE



split_array,index0,fir=sf,last=sl,num=n

	plot,[x],[y],/nodata,xrange=xrange,yrange=yrange, $
title=title,subtitle=subtitle,font=font, $
xmargin=xmargin,ymargin=ymargin,xminor=xminor,yminor=yminor, $
xticks=xticks,xstyle=xstyle, yticks=yticks,ystyle=ystyle, $
xtitle=xtitle,ytitle=ytitle, xtickv=xtickv,ytickv=ytickv, $
xtickn=xtickn,ytickn=ytickn


N_e=n_elements(x)
factor=float(x(N_e-1)-x(0))/(N_e-1)

	for j=0,n-1 do begin

ind=sf(j)+indgen(sl(j)-sf(j)+1)
oplot,x(0)+ind*factor,y(sf(j):sl(j)), $
	color=color,linestyle=linestyle,noclip=noclip, $
	psym=psym,symsize=symsize

	endfor


	end