How to write an ATan2( ) function?

Procedure.f ATan2(y.f,x.f)
a.f=ATan(y.f/x.f)


That code will give you a divide by 0 error if X is 0.