PRO labeloplot, x,y,label,_extra=_extra,xoffset=xoffset,yoffset=yoffset

	if ~(keyword_set(xoffset)) then xoffset=(!x.crange[1]-!x.crange[0])/50
	if ~(keyword_set(yoffset)) then yoffset=(!y.crange[1]-!y.crange[0])/50

	oplot,x,y,_extra=_extra

	wmax = where(y eq max(y))
	xyouts,x[wmax]+xoffset,y[wmax]+yoffset,label,_extra=_extra

	

end