path: root/lib/libm/ccosf.c

#include "__complex.h"

double complex ccos(double complex z)
{
	double ch, sh;

	cchsh(cimag(z), &ch, &sh);

	return cos(creal(z)) * ch - (sin(creal(z)) * sh) * I;
}