158551Skris#include <complex.h> 2228060Sbapt 3228060Sbaptdouble (creal)(double complex z) 4228060Sbapt{ 558551Skris return creal(z); 6228060Sbapt} 758551Skris