pro linelabel, xf, yf, str, linestyle=linestyle
;
;
;
sav_psym = !psym
!psym = 0
;
lenf = 0.08	;relative length of line
n = 20
xx = findgen(n)/(n-1) * lenf + xf
yy = fltarr(n) + yf
;
bits, !type, b
;
case b(0) of
    0: xx = xx*(!cxmax-!cxmin) + !cxmin
    1: xx = 10.^( xx*(!cxmax-!cxmin) + !cxmin )
endcase
case b(1) of
    0: yy = yy*(!cymax-!cymin) + !cymin
    1: yy = 10.^( yy*(!cymax-!cymin) + !cymin )
endcase
;
oplot, xx, yy, linestyle=linestyle
sav_line = !p.linestyle
!p.linestyle = 0
xyouts, xx(n-1), yy(n-1), '   ' + str
;
!psym = sav_psym
!p.linestyle = sav_line 
return
end