blasp.h

这是核学习的一个基础软件包

/* blasp.h  --  C prototypes for BLAS                         Ver 1.0 */
/* Jesse Bennett                                       March 23, 2000 */

/* Functions  listed in alphabetical order */

#ifdef F2C_COMPAT

void cdotc_(fcomplex *dotval, long *n, fcomplex *cx, long *incx,
            fcomplex *cy, long *incy);

void cdotu_(fcomplex *dotval, long *n, fcomplex *cx, long *incx,
            fcomplex *cy, long *incy);

double sasum_(long *n, float *sx, long *incx);

double scasum_(long *n, fcomplex *cx, long *incx);

double scnrm2_(long *n, fcomplex *x, long *incx);

double sdot_(long *n, float *sx, long *incx, float *sy, long *incy);

double snrm2_(long *n, float *x, long *incx);

void zdotc_(dcomplex *dotval, long *n, dcomplex *cx, long *incx,
            dcomplex *cy, long *incy);

void zdotu_(dcomplex *dotval, long *n, dcomplex *cx, long *incx,
            dcomplex *cy, long *incy);

#else

fcomplex cdotc_(long *n, fcomplex *cx, long *incx, fcomplex *cy, long *incy);

fcomplex cdotu_(long *n, fcomplex *cx, long *incx, fcomplex *cy, long *incy);

float sasum_(long *n, float *sx, long *incx);

float scasum_(long *n, fcomplex *cx, long *incx);

float scnrm2_(long *n, fcomplex *x, long *incx);

float sdot_(long *n, float *sx, long *incx, float *sy, long *incy);

float snrm2_(long *n, float *x, long *incx);

dcomplex zdotc_(long *n, dcomplex *cx, long *incx, dcomplex *cy, long *incy);

dcomplex zdotu_(long *n, dcomplex *cx, long *incx, dcomplex *cy, long *incy);

#endif

/* Remaining functions listed in alphabetical order */

int caxpy_(long *n, fcomplex *ca, fcomplex *cx, long *incx, fcomplex *cy,
           long *incy);

int ccopy_(long *n, fcomplex *cx, long *incx, fcomplex *cy, long *incy);

int cgbmv_(char *trans, long *m, long *n, long *kl, long *ku,
           fcomplex *alpha, fcomplex *a, long *lda, fcomplex *x, long *incx,
           fcomplex *beta, fcomplex *y, long *incy);

int cgemm_(char *transa, char *transb, long *m, long *n, long *k,
           fcomplex *alpha, fcomplex *a, long *lda, fcomplex *b, long *ldb,
           fcomplex *beta, fcomplex *c, long *ldc);

int cgemv_(char *trans, long *m, long *n, fcomplex *alpha, fcomplex *a,
           long *lda, fcomplex *x, long *incx, fcomplex *beta, fcomplex *y,
           long *incy);

int cgerc_(long *m, long *n, fcomplex *alpha, fcomplex *x, long *incx,
           fcomplex *y, long *incy, fcomplex *a, long *lda);

int cgeru_(long *m, long *n, fcomplex *alpha, fcomplex *x, long *incx,
           fcomplex *y, long *incy, fcomplex *a, long *lda);

int chbmv_(char *uplo, long *n, long *k, fcomplex *alpha, fcomplex *a,
           long *lda, fcomplex *x, long *incx, fcomplex *beta, fcomplex *y,
           long *incy);

int chemm_(char *side, char *uplo, long *m, long *n, fcomplex *alpha,
           fcomplex *a, long *lda, fcomplex *b, long *ldb, fcomplex *beta,
           fcomplex *c, long *ldc);

int chemv_(char *uplo, long *n, fcomplex *alpha, fcomplex *a, long *lda,
           fcomplex *x, long *incx, fcomplex *beta, fcomplex *y, long *incy);

int cher_(char *uplo, long *n, float *alpha, fcomplex *x, long *incx,
          fcomplex *a, long *lda);

int cher2_(char *uplo, long *n, fcomplex *alpha, fcomplex *x, long *incx,
           fcomplex *y, long *incy, fcomplex *a, long *lda);

int cher2k_(char *uplo, char *trans, long *n, long *k, fcomplex *alpha,
            fcomplex *a, long *lda, fcomplex *b, long *ldb, float *beta,
            fcomplex *c, long *ldc);

int cherk_(char *uplo, char *trans, long *n, long *k, float *alpha,
           fcomplex *a, long *lda, float *beta, fcomplex *c, long *ldc);

int chpmv_(char *uplo, long *n, fcomplex *alpha, fcomplex *ap, fcomplex *x,
           long *incx, fcomplex *beta, fcomplex *y, long *incy);

int chpr_(char *uplo, long *n, float *alpha, fcomplex *x, long *incx,
          fcomplex *ap);

int chpr2_(char *uplo, long *n, fcomplex *alpha, fcomplex *x, long *incx,
           fcomplex *y, long *incy, fcomplex *ap);

int crotg_(fcomplex *ca, fcomplex *cb, float *c, fcomplex *s);

int cscal_(long *n, fcomplex *ca, fcomplex *cx, long *incx);

int csscal_(long *n, float *sa, fcomplex *cx, long *incx);

int cswap_(long *n, fcomplex *cx, long *incx, fcomplex *cy, long *incy);

int csymm_(char *side, char *uplo, long *m, long *n, fcomplex *alpha,
           fcomplex *a, long *lda, fcomplex *b, long *ldb, fcomplex *beta,
           fcomplex *c, long *ldc);

int csyr2k_(char *uplo, char *trans, long *n, long *k, fcomplex *alpha,
            fcomplex *a, long *lda, fcomplex *b, long *ldb, fcomplex *beta,
            fcomplex *c, long *ldc);

int csyrk_(char *uplo, char *trans, long *n, long *k, fcomplex *alpha,
           fcomplex *a, long *lda, fcomplex *beta, fcomplex *c, long *ldc);

int ctbmv_(char *uplo, char *trans, char *diag, long *n, long *k,
           fcomplex *a, long *lda, fcomplex *x, long *incx);

int ctbsv_(char *uplo, char *trans, char *diag, long *n, long *k,
           fcomplex *a, long *lda, fcomplex *x, long *incx);

int ctpmv_(char *uplo, char *trans, char *diag, long *n, fcomplex *ap,
           fcomplex *x, long *incx);

int ctpsv_(char *uplo, char *trans, char *diag, long *n, fcomplex *ap,
           fcomplex *x, long *incx);

int ctrmm_(char *side, char *uplo, char *transa, char *diag, long *m,
           long *n, fcomplex *alpha, fcomplex *a, long *lda, fcomplex *b,
           long *ldb);

int ctrmv_(char *uplo, char *trans, char *diag, long *n, fcomplex *a,
           long *lda, fcomplex *x, long *incx);

int ctrsm_(char *side, char *uplo, char *transa, char *diag, long *m,
           long *n, fcomplex *alpha, fcomplex *a, long *lda, fcomplex *b,
           long *ldb);

int ctrsv_(char *uplo, char *trans, char *diag, long *n, fcomplex *a,
           long *lda, fcomplex *x, long *incx);

int daxpy_(long *n, double *sa, double *sx, long *incx, double *sy,
           long *incy);

int dcopy_(long *n, double *sx, long *incx, double *sy, long *incy);

int dgbmv_(char *trans, long *m, long *n, long *kl, long *ku,
           double *alpha, double *a, long *lda, double *x, long *incx,
           double *beta, double *y, long *incy);

int dgemm_(char *transa, char *transb, long *m, long *n, long *k,
           double *alpha, double *a, long *lda, double *b, long *ldb,
           double *beta, double *c, long *ldc);

int dgemv_(char *trans, long *m, long *n, double *alpha, double *a,
           long *lda, double *x, long *incx, double *beta, double *y, 
           long *incy);

int dger_(long *m, long *n, double *alpha, double *x, long *incx,
          double *y, long *incy, double *a, long *lda);

int drot_(long *n, double *sx, long *incx, double *sy, long *incy,
          double *c, double *s);

int drotg_(double *sa, double *sb, double *c, double *s);

int dsbmv_(char *uplo, long *n, long *k, double *alpha, double *a,
           long *lda, double *x, long *incx, double *beta, double *y, 
           long *incy);

int dscal_(long *n, double *sa, double *sx, long *incx);

  long i, m, nincx, nn, iincx;
int dspmv_(char *uplo, long *n, double *alpha, double *ap, double *x,
           long *incx, double *beta, double *y, long *incy);

int dspr_(char *uplo, long *n, double *alpha, double *x, long *incx,
          double *ap);

int dspr2_(char *uplo, long *n, double *alpha, double *x, long *incx,
           double *y, long *incy, double *ap);

int dswap_(long *n, double *sx, long *incx, double *sy, long *incy);

int dsymm_(char *side, char *uplo, long *m, long *n, double *alpha,
           double *a, long *lda, double *b, long *ldb, double *beta,
           double *c, long *ldc);

int dsymv_(char *uplo, long *n, double *alpha, double *a, long *lda,
           double *x, long *incx, double *beta, double *y, long *incy);

int dsyr_(char *uplo, long *n, double *alpha, double *x, long *incx,
          double *a, long *lda);

int dsyr2_(char *uplo, long *n, double *alpha, double *x, long *incx,
           double *y, long *incy, double *a, long *lda);

int dsyr2k_(char *uplo, char *trans, long *n, long *k, double *alpha,
            double *a, long *lda, double *b, long *ldb, double *beta,
            double *c, long *ldc);

int dsyrk_(char *uplo, char *trans, long *n, long *k, double *alpha,
           double *a, long *lda, double *beta, double *c, long *ldc);