@@ -45,17 +45,17 @@
 #endif
 
 void
 __vatan( int n, double * restrict x, int stridex, double * restrict y, int stridey )
 {
-  double  f , z, ans, ansu , ansl , tmp , poly , conup , conlo , dummy;
+  double  f , z, ans = 0.0L, ansu , ansl , tmp , poly , conup , conlo , dummy;
   double  f1,   ans1, ansu1, ansl1, tmp1, poly1, conup1, conlo1;
   double  f2,   ans2, ansu2, ansl2, tmp2, poly2, conup2, conlo2;
   int index, sign, intf, intflo, intz, argcount;
-  int index1, sign1 ;
-  int index2, sign2 ;
-  double *yaddr,*yaddr1,*yaddr2;
+  int index1, sign1 = 0;
+  int index2, sign2 = 0;
+  double *yaddr,*yaddr1 = 0,*yaddr2 = 0;
   extern const double __vlibm_TBL_atan1[];
   extern double fabs( double );
 
 /*    Power series  atan(x) = x + p1*x**3 + p2*x**5 + p3*x**7
  *    Error =  -3.08254E-18   On the interval  |x| < 1/64 */