
implicit none

real :: x,y,a,b

a = atan(x)

b = atan(y, x)

end 

