mkl_blas.h

最小二乘拟和工具

void zaxpy(int *n,MKL_Complex16 *alpha,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy); 
void zaxpyi(int *nz,MKL_Complex16 *a,MKL_Complex16 *x,int *indx,MKL_Complex16 *y); 
void zcopy(int *n,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy); 
void zdotc(MKL_Complex16 *pres,int *n,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy); 
void zdotci(MKL_Complex16 *pres,int *nz,MKL_Complex16 *x,int *indx,MKL_Complex16 *y); 
void zdotu(MKL_Complex16 *pres,int *n,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy); 
void zdotui(MKL_Complex16 *pres,int *nz,MKL_Complex16 *x,int *indx,MKL_Complex16 *y); 
void zdrot(int *n,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy,double *c,double *s); 
void zdscal(int *n,double *a,MKL_Complex16 *x,int *incx); 
void zgthr(int *nz,MKL_Complex16 *y,MKL_Complex16 *x,int *indx); 
void zgthrz(int *nz,MKL_Complex16 *y,MKL_Complex16 *x,int *indx); 
void zrotg(MKL_Complex16 *a,MKL_Complex16 *b,double *c,MKL_Complex16 *s); 
void zscal(int *n,MKL_Complex16 *a,MKL_Complex16 *x,int *incx); 
void zsctr(int *nz,MKL_Complex16 *x,int *indx,MKL_Complex16 *y); 
void zswap(int *n,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy); 
int  izamax(int *n,MKL_Complex16 *x,int *incx); 
int  izamin(int *n,MKL_Complex16 *x,int *incx); 

/* blas level2 */

void sgbmv(char *trans,int *m,int *n,int *kl,int *ku,float *alpha,float *a,int *lda,float *x,int *incx,float *beta,float *y,int *incy);
void sgemv(char *trans,int *m,int *n,float *alpha,float *a,int *lda,float *x,int *incx,float *beta,float *y,int *incy);
void sger(int *m,int *n,float *alpha,float *x,int *incx,float *y,int *incy,float *a,int *lda);
void ssbmv(char *uplo,int *n,int *k,float *alpha,float *a,int *lda,float *x,int *incx,float *beta,float *y,int *incy);
void sspmv(char *uplo,int *n,float *alpha,float *ap,float *x,int *incx,float *beta,float *y,int *incy);
void sspr(char *uplo,int *n,float *alpha,float *x,int *incx,float *ap);
void sspr2(char *uplo,int *n,float *alpha,float *x,int *incx,float *y,int *incy,float *ap);
void ssymv(char *uplo,int *n,float *alpha,float *a,int *lda,float *x,int *incx,float *beta,float *y,int *incy);
void ssyr(char *uplo,int *n,float *alpha,float *x,int *incx,float *a,int *lda);
void ssyr2(char *uplo,int *n,float *alpha,float *x,int *incx,float *y,int *incy,float *a,int *lda);
void stbmv(char *uplo,char *trans,char *diag,int *n,int *k,float *a,int *lda,float *x,int *incx);
void stbsv(char *uplo,char *trans,char *diag,int *n,int *k,float *a,int *lda,float *x,int *incx);
void stpmv(char *uplo,char *trans,char *diag,int *n,float *ap,float *x,int *incx);
void stpsv(char *uplo,char *trans,char *diag,int *n,float *ap,float *x,int *incx);
void strmv(char *uplo,char *transa,char *diag,int *n,float *a,int *lda,float *b,int *incx);
void strsv(char *uplo,char *trans,char *diag,int *n,float *a,int *lda,float *x,int *incx);

void cgbmv(char *trans,int *m,int *n,int *kl,int *ku,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *x,int *incx,MKL_Complex8 *beta,MKL_Complex8 *y,int *incy); 
void cgemv(char *trans,int *m,int *n,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *x,int *incx,MKL_Complex8 *beta,MKL_Complex8 *y,int *incy); 
void cgerc(int *m,int *n,MKL_Complex8 *alpha,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy,MKL_Complex8 *a,int *lda); 
void cgeru(int *m,int *n,MKL_Complex8 *alpha,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy,MKL_Complex8 *a,int *lda); 
void chbmv(char *uplo,int *n,int *k,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *x,int *incx,MKL_Complex8 *beta,MKL_Complex8 *y,int *incy); 
void chemv(char *uplo,int *n,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *x,int *incx,MKL_Complex8 *beta,MKL_Complex8 *y,int *incy); 
void cher(char *uplo,int *n,float *alpha,MKL_Complex8 *x,int *incx,MKL_Complex8 *a,int *lda); 
void cher2(char *uplo,int *n,MKL_Complex8 *alpha,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy,MKL_Complex8 *a,int *lda); 
void chpmv(char *uplo,int *n,MKL_Complex8 *alpha,MKL_Complex8 *ap,MKL_Complex8 *x,int *incx,MKL_Complex8 *beta,MKL_Complex8 *y,int *incy); 
void chpr(char *uplo,int *n,float *alpha,MKL_Complex8 *x,int *incx,MKL_Complex8 *ap); 
void chpr2(char *uplo,int *n,MKL_Complex8 *alpha,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy,MKL_Complex8 *ap); 
void ctbmv(char *uplo,char *trans,char *diag,int *n,int *k,MKL_Complex8 *a,int *lda,MKL_Complex8 *x,int *incx); 
void ctbsv(char *uplo,char *trans,char *diag,int *n,int *k,MKL_Complex8 *a,int *lda,MKL_Complex8 *x,int *incx); 
void ctpmv(char *uplo,char *trans,char *diag,int *n,MKL_Complex8 *ap,MKL_Complex8 *x,int *incx); 
void ctpsv(char *uplo,char *trans,char *diag,int *n,MKL_Complex8 *ap,MKL_Complex8 *x,int *incx); 
void ctrmv(char *uplo,char *transa,char *diag,int *n,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *incx); 
void ctrsv(char *uplo,char *trans,char *diag,int *n,MKL_Complex8 *a,int *lda,MKL_Complex8 *x,int *incx); 

void dgbmv(char *trans,int *m,int *n,int *kl,int *ku,double *alpha,double *a,int *lda,double *x,int *incx,double *beta,double *y,int *incy);
void dgemv(char *trans,int *m,int *n,double *alpha,double *a,int *lda,double *x,int *incx,double *beta,double *y,int *incy);
void dger(int *m,int *n,double *alpha,double *x,int *incx,double *y,int *incy,double *a,int *lda);
void dsbmv(char *uplo,int *n,int *k,double *alpha,double *a,int *lda,double *x,int *incx,double *beta,double *y,int *incy);
void dspmv(char *uplo,int *n,double *alpha,double *ap,double *x,int *incx,double *beta,double *y,int *incy);
void dspr(char *uplo,int *n,double *alpha,double *x,int *incx,double *ap);
void dspr2(char *uplo,int *n,double *alpha,double *x,int *incx,double *y,int *incy,double *ap);
void dsymv(char *uplo,int *n,double *alpha,double *a,int *lda,double *x,int *incx,double *beta,double *y,int *incy);
void dsyr(char *uplo,int *n,double *alpha,double *x,int *incx,double *a,int *lda);
void dsyr2(char *uplo,int *n,double *alpha,double *x,int *incx,double *y,int *incy,double *a,int *lda);
void dtbmv(char *uplo,char *trans,char *diag,int *n,int *k,double *a,int *lda,double *x,int *incx);
void dtbsv(char *uplo,char *trans,char *diag,int *n,int *k,double *a,int *lda,double *x,int *incx);
void dtpmv(char *uplo,char *trans,char *diag,int *n,double *ap,double *x,int *incx);
void dtpsv(char *uplo,char *trans,char *diag,int *n,double *ap,double *x,int *incx);
void dtrmv(char *uplo,char *transa,char *diag,int *n,double *a,int *lda,double *b,int *incx);
void dtrsv(char *uplo,char *trans,char *diag,int *n,double *a,int *lda,double *x,int *incx);

void zgbmv(char *trans,int *m,int *n,int *kl,int *ku,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *x,int *incx,MKL_Complex16 *beta,MKL_Complex16 *y,int *incy); 
void zgemv(char *trans,int *m,int *n,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *x,int *incx,MKL_Complex16 *beta,MKL_Complex16 *y,int *incy); 
void zgerc(int *m,int *n,MKL_Complex16 *alpha,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy,MKL_Complex16 *a,int *lda); 
void zgeru(int *m,int *n,MKL_Complex16 *alpha,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy,MKL_Complex16 *a,int *lda); 
void zhbmv(char *uplo,int *n,int *k,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *x,int *incx,MKL_Complex16 *beta,MKL_Complex16 *y,int *incy); 
void zhemv(char *uplo,int *n,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *x,int *incx,MKL_Complex16 *beta,MKL_Complex16 *y,int *incy); 
void zher(char *uplo,int *n,double *alpha,MKL_Complex16 *x,int *incx,MKL_Complex16 *a,int *lda); 
void zher2(char *uplo,int *n,MKL_Complex16 *alpha,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy,MKL_Complex16 *a,int *lda); 
void zhpmv(char *uplo,int *n,MKL_Complex16 *alpha,MKL_Complex16 *ap,MKL_Complex16 *x,int *incx,MKL_Complex16 *beta,MKL_Complex16 *y,int *incy); 
void zhpr(char *uplo,int *n,double *alpha,MKL_Complex16 *x,int *incx,MKL_Complex16 *ap); 
void zhpr2(char *uplo,int *n,MKL_Complex16 *alpha,MKL_Complex16 *x,int *incx,MKL_Complex16 *y,int *incy,MKL_Complex16 *ap); 
void ztbmv(char *uplo,char *trans,char *diag,int *n,int *k,MKL_Complex16 *a,int *lda,MKL_Complex16 *x,int *incx); 
void ztbsv(char *uplo,char *trans,char *diag,int *n,int *k,MKL_Complex16 *a,int *lda,MKL_Complex16 *x,int *incx); 
void ztpmv(char *uplo,char *trans,char *diag,int *n,MKL_Complex16 *ap,MKL_Complex16 *x,int *incx); 
void ztpsv(char *uplo,char *trans,char *diag,int *n,MKL_Complex16 *ap,MKL_Complex16 *x,int *incx); 
void ztrmv(char *uplo,char *transa,char *diag,int *n,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *incx); 
void ztrsv(char *uplo,char *trans,char *diag,int *n,MKL_Complex16 *a,int *lda,MKL_Complex16 *x,int *incx); 

/* blas level3 */

void sgemm(char *transa,char *transb,int *m,int *n,int *k,float *alpha,float *a,int *lda,float *b,int *ldb,float *beta,float *c,int *ldc);
void ssymm(char *side,char *uplo,int *m,int *n,float *alpha,float *a,int *lda,float *b,int *ldb,float *beta,float *c,int *ldc);
void ssyr2k(char *uplo,char *trans,int *n,int *k,float *alpha,float *a,int *lda,float *b,int *ldb,float *beta,float *c,int *ldc);
void ssyrk(char *uplo,char *trans,int *n,int *k,float *alpha,float *a,int *lda,float *beta,float *c,int *ldc);
void strmm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,float *alpha,float *a,int *lda,float *b,int *ldb);
void strsm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,float *alpha,float *a,int *lda,float *b,int *ldb);

void cgemm(char *transa,char *transb,int *m,int *n,int *k,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *ldb,MKL_Complex8 *beta,MKL_Complex8 *c,int *ldc); 
void chemm(char *side,char *uplo,int *m,int *n,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *ldb,MKL_Complex8 *beta,MKL_Complex8 *c,int *ldc); 
void cher2k(char *uplo,char *trans,int *n,int *k,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *ldb,float *beta,MKL_Complex8 *c,int *ldc); 
void cherk(char *uplo,char *trans,int *n,int *k,float *alpha,MKL_Complex8 *a,int *lda,float *beta,MKL_Complex8 *c,int *ldc); 
void csymm(char *side,char *uplo,int *m,int *n,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *ldb,MKL_Complex8 *beta,MKL_Complex8 *c,int *ldc); 
void csyr2k(char *uplo,char *trans,int *n,int *k,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *ldb,MKL_Complex8 *beta,MKL_Complex8 *c,int *ldc); 
void csyrk(char *uplo,char *trans,int *n,int *k,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *beta,MKL_Complex8 *c,int *ldc); 
void ctrmm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *ldb); 
void ctrsm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,MKL_Complex8 *alpha,MKL_Complex8 *a,int *lda,MKL_Complex8 *b,int *ldb); 

void dgemm(char *transa,char *transb,int *m,int *n,int *k,double *alpha,double *a,int *lda,double *b,int *ldb,double *beta,double *c,int *ldc);
void dsymm(char *side,char *uplo,int *m,int *n,double *alpha,double *a,int *lda,double *b,int *ldb,double *beta,double *c,int *ldc);
void dsyr2k(char *uplo,char *trans,int *n,int *k,double *alpha,double *a,int *lda,double *b,int *ldb,double *beta,double *c,int *ldc);
void dsyrk(char *uplo,char *trans,int *n,int *k,double *alpha,double *a,int *lda,double *beta,double *c,int *ldc);
void dtrmm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,double *alpha,double *a,int *lda,double *b,int *ldb);
void dtrsm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,double *alpha,double *a,int *lda,double *b,int *ldb);

void zgemm(char *transa,char *transb,int *m,int *n,int *k,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb,MKL_Complex16 *beta,MKL_Complex16 *c,int *ldc); 
void zgemm(char *transa,char *transb,int *m,int *n,int *k,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb,MKL_Complex16 *beta,MKL_Complex16 *c,int *ldc); 
void zhemm(char *side,char *uplo,int *m,int *n,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb,MKL_Complex16 *beta,MKL_Complex16 *c,int *ldc); 
void zher2k(char *uplo,char *trans,int *n,int *k,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb,double *beta,MKL_Complex16 *c,int *ldc); 
void zherk(char *uplo,char *trans,int *n,int *k,double *alpha,MKL_Complex16 *a,int *lda,double *beta,MKL_Complex16 *c,int *ldc); 
void zsymm(char *side,char *uplo,int *m,int *n,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb,MKL_Complex16 *beta,MKL_Complex16 *c,int *ldc); 
void zsyr2k(char *uplo,char *trans,int *n,int *k,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb,MKL_Complex16 *beta,MKL_Complex16 *c,int *ldc); 
void zsyrk(char *uplo,char *trans,int *n,int *k,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *beta,MKL_Complex16 *c,int *ldc); 
void ztrmm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb); 
void ztrsm(char *side,char *uplo,char *transa,char *diag,int *m,int *n,MKL_Complex16 *alpha,MKL_Complex16 *a,int *lda,MKL_Complex16 *b,int *ldb); 


/* MKL support */

void MKLGetVersion(MKLVersion *ver);
void MKLGetVersionString(char * buffer, int len);
void MKLStart(void);
void MKLEnd(void);

#ifdef __cplusplus
}
#endif /* __cplusplus */

#endif /* _MKL_BLAS_H_ */