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