pro oplot_break,x,y,x_break=x_break,y_break=y_break, $
	subs_break=subs_break,$
	color=color,linestyle=linestyle,thick=thick, $
	noclip=noclip,psym=psym,symsize=symsize


;	Oplots a curve having nissing points.

if n_elements(linestyle) le 0 then linestyle=0
if n_elements(color) le 0 then color=!p.color
if n_elements(noclip) le 0 then noclip=0
if n_elements(thick) le 0 then thick=1
if n_elements(psym) le 0 then psym=0
if n_elements(symsize) le 0 then symsize=1

	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

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,thick=thick, $
	psym=psym,symsize=symsize
	endfor


	end