@@ -1170,10 +1170,10 @@ double ddot_(int *n, double *x, int *incx, double* y, int *incy);
1170
1170
complex cdotc_ (int * n , complex * x , int * incx , complex * y , int * incy );
1171
1171
doublecomplex zdotc_ (int * n , doublecomplex * x , int * incx , doublecomplex * y , int * incy );
1172
1172
#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 );
1177
1177
#endif
1178
1178
1179
1179
void sswap_ (int * n , float * x , int * incx , float * y , int * incy );
0 commit comments