1extern double R_NaReal; 2void z_atan2 (double _Complex * r, double _Complex * ccs) 3{ 4 if (*ccs == 0) 5 __imag__ *r = R_NaReal; 6} 7 8