mkl_blas.h

最小二乘拟和工具

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); 


/* Lower case declaration */

/* BLAS Level1 */

float sasum(int *n,float *x,int *incx);
void  saxpy(int *n,float *alpha,float *x,int *incx,float *y,int *incy);
void  saxpyi(int *nz,float *a,float *x,int *indx,float *y);
float scasum(int *n,MKL_Complex8 *x,int *incx); 
float scnrm2(int *n,MKL_Complex8 *x,int *incx); 
void  scopy(int *n,float *x,int *incx,float *y,int *incy);
float sdot(int *n,float *x,int *incx,float *y,int *incy);
float sdoti(int *nz,float *x,int *indx,float *y);
void  sgthr(int *nz,float *y,float *x,int *indx);
void  sgthrz(int *nz,float *y,float *x,int *indx);
float snrm2(int *n,float *x,int *incx);
void  srot(int *n,float *x,int *incx,float *y,int *incy,float *c,float *s);
void  srotg(float *a,float *b,float *c,float *s);
void  sroti(int *nz,float *x,int *indx,float *y,float *c,float *s);
void  srotm(int *n,float *x,int *incx,float *y,int *incy,float *param);
void  srotmg(float *d1,float *d2,float *x1,float *y1,float *param);
void  sscal(int *n,float *a,float *x,int *incx);
void  ssctr(int *nz,float *x,int *indx,float *y);
void  sswap(int *n,float *x,int *incx,float *y,int *incy);
int   isamax(int *n,float *x,int *incx);
int   isamin(int *n,float *x,int *incx);

void caxpy(int *n,MKL_Complex8 *alpha,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy); 
void caxpyi(int *nz,MKL_Complex8 *a,MKL_Complex8 *x,int *indx,MKL_Complex8 *y); 
void ccopy(int *n,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy); 
void cdotc(MKL_Complex8 *pres,int *n,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy); 
void cdotci(MKL_Complex8 *pres,int *nz,MKL_Complex8 *x,int *indx,MKL_Complex8 *y); 
void cdotu(MKL_Complex8 *pres,int *n,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy); 
void cdotui(MKL_Complex8 *pres,int *nz,MKL_Complex8 *x,int *indx,MKL_Complex8 *y); 
void cgthr(int *nz,MKL_Complex8 *y,MKL_Complex8 *x,int *indx); 
void cgthrz(int *nz,MKL_Complex8 *y,MKL_Complex8 *x,int *indx); 
void crotg(MKL_Complex8 *a,MKL_Complex8 *b,float *c,MKL_Complex8 *s); 
void cscal(int *n,MKL_Complex8 *a,MKL_Complex8 *x,int *incx); 
void csctr(int *nz,MKL_Complex8 *x,int *indx,MKL_Complex8 *y); 
void csrot(int *n,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy,float *c,float *s); 
void csscal(int *n,float *a,MKL_Complex8 *x,int *incx); 
void cswap(int *n,MKL_Complex8 *x,int *incx,MKL_Complex8 *y,int *incy); 
int  icamax(int *n,MKL_Complex8 *x,int *incx); 
int  icamin(int *n,MKL_Complex8 *x,int *incx); 

double dasum(int *n,double *x,int *incx);
void   daxpy(int *n,double *alpha,double *x,int *incx,double *y,int *incy);
void   daxpyi(int *nz,double *a,double *x,int *indx,double *y);
void   dcopy(int *n,double *x,int *incx,double *y,int *incy);
double ddot(int *n,double *x,int *incx,double *y,int *incy);
double ddoti(int *nz,double *x,int *indx,double *y);
void   dgthr(int *nz,double *y,double *x,int *indx);
void   dgthrz(int *nz,double *y,double *x,int *indx);
double dnrm2(int *n,double *x,int *incx);
void   drot(int *n,double *x,int *incx,double *y,int *incy,double *c,double *s);
void   drotg(double *a,double *b,double *c,double *s);
void   droti(int *nz,double *x,int *indx,double *y,double *c,double *s);
void   drotm(int *n,double *x,int *incx,double *y,int *incy,double *param);
void   drotmg(double *d1,double *d2,double *x1,double *y1,double *param);
void   dscal(int *n,double *a,double *x,int *incx);
void   dsctr(int *nz,double *x,int *indx,double *y);
void   dswap(int *n,double *x,int *incx,double *y,int *incy);
double dzasum(int *n,MKL_Complex16 *x,int *incx); 
double dznrm2(int *n,MKL_Complex16 *x,int *incx); 
int    idamax(int *n,double *x,int *incx);
int    idamin(int *n,double *x,int *incx);