blasp.h

留一模型选择法leave-one-out model selection

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

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

int dtpmv_(char *uplo, char *trans, char *diag, long *n, double *ap,
           double *x, long *incx);

int dtpsv_(char *uplo, char *trans, char *diag, long *n, double *ap,
           double *x, long *incx);

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

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

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

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


int saxpy_(long *n, float *sa, float *sx, long *incx, float *sy, long *incy);

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

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

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

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

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

int srot_(long *n, float *sx, long *incx, float *sy, long *incy,
          float *c, float *s);

int srotg_(float *sa, float *sb, float *c, float *s);

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

int sscal_(long *n, float *sa, float *sx, long *incx);

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

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

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

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

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

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

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

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

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

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

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

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

int stpmv_(char *uplo, char *trans, char *diag, long *n, float *ap,
           float *x, long *incx);

int stpsv_(char *uplo, char *trans, char *diag, long *n, float *ap,
           float *x, long *incx);

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

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

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

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

int zaxpy_(long *n, dcomplex *ca, dcomplex *cx, long *incx, dcomplex *cy,
           long *incy);

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

int zdscal_(long *n, double *sa, dcomplex *cx, long *incx);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

int zrotg_(dcomplex *ca, dcomplex *cb, double *c, dcomplex *s);

int zscal_(long *n, dcomplex *ca, dcomplex *cx, long *incx);

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

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

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

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

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

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

int ztpmv_(char *uplo, char *trans, char *diag, long *n, dcomplex *ap,
           dcomplex *x, long *incx);

int ztpsv_(char *uplo, char *trans, char *diag, long *n, dcomplex *ap,
           dcomplex *x, long *incx);

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

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

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

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