catan
extern double complex catan(double complex);
__MATHCALL (catan, (_Mdouble_complex_ __z));
z = catan(CMPLX(-cimag(z), creal(z)));
return catan(z);