#include <math.h>
#include <complex.h>
double cabs (double complex Z)
{
return _hypot ( __real__ Z, __imag__ Z);
}