12                     const int *incX, void *Y, const int *incY)  in F77_zaxpy()  argument
14    cblas_zaxpy(*N, alpha, X, *incX, Y, *incY);  in F77_zaxpy()
18 void F77_zcopy(const int *N, void *X, const int *incX,   in F77_zcopy()  argument
21    cblas_zcopy(*N, X, *incX, Y, *incY);  in F77_zcopy()
25 void F77_zdotc(const int *N, const void *X, const int *incX,   in F77_zdotc()  argument
28    cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);  in F77_zdotc()
32 void F77_zdotu(const int *N, void *X, const int *incX,   in F77_zdotu()  argument
35    cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);  in F77_zdotu()
40                          const int *incX)  in F77_zdscal()  argument
42    cblas_zdscal(*N, *alpha, X, *incX);  in F77_zdscal()
47                          const int *incX)  in F77_zscal()  argument
49    cblas_zscal(*N, alpha, X, *incX);  in F77_zscal()
53 void F77_zswap( const int *N, void *X, const int *incX,  in F77_zswap()  argument
56    cblas_zswap(*N,X,*incX,Y,*incY);  in F77_zswap()
60 int F77_izamax(const int *N, const void *X, const int *incX)  in F77_izamax()  argument
62    if (*N < 1 || *incX < 1) return(0);  in F77_izamax()
63    return(cblas_izamax(*N, X, *incX)+1);  in F77_izamax()
66 double F77_dznrm2(const int *N, const void *X, const int *incX)  in F77_dznrm2()  argument
68    return cblas_dznrm2(*N, X, *incX);  in F77_dznrm2()
71 double F77_dzasum(const int *N, void *X, const int *incX)  in F77_dzasum()  argument
73    return cblas_dzasum(*N, X, *incX);  in F77_dzasum()