11 double F77_dasum(const int *N, double *X, const int *incX)  in F77_dasum()  argument
13    return cblas_dasum(*N, X, *incX);  in F77_dasum()
17                     const int *incX, double *Y, const int *incY)  in F77_daxpy()  argument
19    cblas_daxpy(*N, *alpha, X, *incX, Y, *incY);  in F77_daxpy()
23 void F77_dcopy(const int *N, double *X, const int *incX,   in F77_dcopy()  argument
26    cblas_dcopy(*N, X, *incX, Y, *incY);  in F77_dcopy()
30 double F77_ddot(const int *N, const double *X, const int *incX,  in F77_ddot()  argument
33    return cblas_ddot(*N, X, *incX, Y, *incY);  in F77_ddot()
36 double F77_dnrm2(const int *N, const double *X, const int *incX)  in F77_dnrm2()  argument
38    return cblas_dnrm2(*N, X, *incX);  in F77_dnrm2()
47 void F77_drot( const int *N, double *X, const int *incX, double *Y,  in F77_drot()  argument
51    cblas_drot(*N,X,*incX,Y,*incY,*c,*s);  in F77_drot()
56                          const int *incX)  in F77_dscal()  argument
58    cblas_dscal(*N, *alpha, X, *incX);  in F77_dscal()
62 void F77_dswap( const int *N, double *X, const int *incX,  in F77_dswap()  argument
65    cblas_dswap(*N,X,*incX,Y,*incY);  in F77_dswap()
69 double F77_dzasum(const int *N, void *X, const int *incX)  in F77_dzasum()  argument
71    return cblas_dzasum(*N, X, *incX);  in F77_dzasum()
74 double F77_dznrm2(const int *N, const void *X, const int *incX)  in F77_dznrm2()  argument
76    return cblas_dznrm2(*N, X, *incX);  in F77_dznrm2()
79 int F77_idamax(const int *N, const double *X, const int *incX)  in F77_idamax()  argument
81    if (*N < 1 || *incX < 1) return(0);  in F77_idamax()
82    return (cblas_idamax(*N, X, *incX)+1);  in F77_idamax()