*** 45,61 ****
  #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  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;
    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 */
--- 45,61 ----
  #endif
  
  void
  __vatan( int n, double * restrict x, int stridex, double * restrict y, int stridey )
  {
!   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 = 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 */