initial cmath code and minor libm.h update

[libm] / src / cmath / cabs.c

#include "libm.h"

double cabs(double complex z)
{
        return hypot(creal(z), cimag(z));
}