@@ -1170,10 +1170,10 @@ double ddot_(int *n, double *x, int *incx, double* y, int *incy);
11701170 complex cdotc_ (int * n , complex * x , int * incx , complex * y , int * incy );
11711171 doublecomplex zdotc_ (int * n , doublecomplex * x , int * incx , doublecomplex * y , int * incy );
11721172#else
1173- void cdotusub_ (int * n , complex * x , int * incx , complex * y , int * incy , complex * ans );
1174- void zdotusub_ (int * n , doublecomplex * x , int * incx , doublecomplex * y , int * incy , doublecomplex * ans );
1175- void cdotcsub_ (int * n , complex * x , int * incx , complex * y , int * incy , complex * ans );
1176- void zdotcsub_ (int * n , doublecomplex * x , int * incx , doublecomplex * y , int * incy , doublecomplex * ans );
1173+ complex cdotu_ (int * n , complex * x , int * incx , complex * y , int * incy );
1174+ doublecomplex zdotu_ (int * n , doublecomplex * x , int * incx , doublecomplex * y , int * incy );
1175+ complex cdotc_ (int * n , complex * x , int * incx , complex * y , int * incy );
1176+ doublecomplex zdotc_ (int * n , doublecomplex * x , int * incx , doublecomplex * y , int * incy );
11771177#endif
11781178
11791179void sswap_ (int * n , float * x , int * incx , float * y , int * incy );
0 commit comments