pro recpol,x,y,r,theta,degree=degree,radians=radians

;+
;	Converts Descartes's coordinates 
;	to polar ones.
;-

r=sqrt(x^2+y^2)
theta=atan(y, x)

if keyword_set(degree) then theta=theta*180d0/!Dpi


	end