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