initial cmath code and minor libm.h update

[libm] / src / cmath / cimag.c

#include "libm.h"

double (cimag)(double complex z)
{
        union dcomplex u = {z};
        return u.a[1];
}