12                     const int *incX, void *Y, const int *incY)  in F77_caxpy()  argument
14    cblas_caxpy(*N, alpha, X, *incX, Y, *incY);  in F77_caxpy()
18 void F77_ccopy(const int *N, void *X, const int *incX,   in F77_ccopy()  argument
21    cblas_ccopy(*N, X, *incX, Y, *incY);  in F77_ccopy()
25 void F77_cdotc(const int *N, void *X, const int *incX,   in F77_cdotc()  argument
28    cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);  in F77_cdotc()
32 void F77_cdotu(const int *N, void *X, const int *incX,   in F77_cdotu()  argument
35    cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);  in F77_cdotu()
40                          const int *incX)  in F77_cscal()  argument
42    cblas_cscal(*N, alpha, X, *incX);  in F77_cscal()
47                          const int *incX)  in F77_csscal()  argument
49    cblas_csscal(*N, *alpha, X, *incX);  in F77_csscal()
53 void F77_cswap( const int *N, void *X, const int *incX,  in F77_cswap()  argument
56    cblas_cswap(*N,X,*incX,Y,*incY);  in F77_cswap()
60 int F77_icamax(const int *N, const void *X, const int *incX)  in F77_icamax()  argument
62    if (*N < 1 || *incX < 1) return(0);  in F77_icamax()
63    return (cblas_icamax(*N, X, *incX)+1);  in F77_icamax()
66 float F77_scnrm2(const int *N, const void *X, const int *incX)  in F77_scnrm2()  argument
68    return cblas_scnrm2(*N, X, *incX);  in F77_scnrm2()
71 float F77_scasum(const int *N, void *X, const int *incX)  in F77_scasum()  argument
73    return cblas_scasum(*N, X, *incX);  in F77_scasum()