carg
extern double carg(double complex);
__MATHDECL (_Mdouble_,carg, (_Mdouble_complex_ __z));
return carg(z);