floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix gemm_batch bug for SMALL_MATRIX_OPT=1.

This commit is contained in:
Zhang Xianyi 2020-12-12 18:59:07 +08:00
parent 88e6806e3f
commit 77460ac255
1 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
driver/level3/gemm_batch_thread.c
View File

@ -46,41 +46,43 @@ static int inner_small_matrix_thread(blas_arg_t *args, BLASLONG *range_m, BLASLO
int (*zgemm_small_kernel_b0)(BLASLONG, BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT , FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG); int (*zgemm_small_kernel_b0)(BLASLONG, BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT , FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG);
FLOAT alpha[2], beta[2]; FLOAT alpha[2], beta[2];
#endif #endif
routine_mode=args.routine_mode; routine_mode=args->routine_mode;
if(routine_mode & BLAS_SMALL_B0_OPT){ if(routine_mode & BLAS_SMALL_B0_OPT){
#ifndef COMPLEX #ifndef COMPLEX
gemm_small_kernel_b0=args.routine; gemm_small_kernel_b0=args->routine;
gemm_small_kernel_b0(args.m, args.n, args.k, args.a, args.lda, *(FLOAT *)(args.alpha), args.b, args.ldb, args.c, args.ldc); gemm_small_kernel_b0(args->m, args->n, args->k, args->a, args->lda, *(FLOAT *)(args->alpha), args->b, args->ldb, args->c, args->ldc);
#else #else
zgemm_small_kernel_b0=args.routine; zgemm_small_kernel_b0=args->routine;
alpha[0]=(FLOAT *)(args.alpha)[0]; alpha[0]=((FLOAT *)(args->alpha))[0];
alpha[1]=(FLOAT *)(args.alpha)[1]; alpha[1]=((FLOAT *)(args->alpha))[1];
zgemm_small_kernel_b0(args.m, args.n, args.k, args.a, args.lda, alpha[0], alpha[1], args.b, args.ldb, args.c, args.ldc); zgemm_small_kernel_b0(args->m, args->n, args->k, args->a, args->lda, alpha[0], alpha[1], args->b, args->ldb, args->c, args->ldc);
#endif #endif
}else if(routine_mode & BLAS_SMALL_OPT){ }else if(routine_mode & BLAS_SMALL_OPT){
#ifndef COMPLEX #ifndef COMPLEX
gemm_small_kernel=args.routine; gemm_small_kernel=args->routine;
gemm_small_kernel(args.m, args.n, args.k, args.a, args.lda, *(FLOAT *)(args.alpha), args.b, args.ldb, *(FLOAT *)(args.beta), args.c, args.ldc); gemm_small_kernel(args->m, args->n, args->k, args->a, args->lda, *(FLOAT *)(args->alpha), args->b, args->ldb, *(FLOAT *)(args->beta), args->c, args->ldc);
#else #else
zgemm_small_kernel=args.routine; zgemm_small_kernel=args->routine;
alpha[0]=(FLOAT *)(args.alpha)[0]; alpha[0]=((FLOAT *)(args->alpha))[0];
alpha[1]=(FLOAT *)(args.alpha)[1]; alpha[1]=((FLOAT *)(args->alpha))[1];
beta[0]=(FLOAT *)(args.beta)[0]; beta[0]=((FLOAT *)(args->beta))[0];
beta[1]=(FLOAT *)(args.beta)[1]; beta[1]=((FLOAT *)(args->beta))[1];
zgemm_small_kernel(args.m, args.n, args.k, args.a, args.lda, alpha[0], alpha[1], args.b, args.ldb, beta[0], beta[1], args.c, args.ldc); zgemm_small_kernel(args->m, args->n, args->k, args->a, args->lda, alpha[0], alpha[1], args->b, args->ldb, beta[0], beta[1], args->c, args->ldc);
#endif #endif
} }
return 0;
} }
#endif #endif
int CNAME(blas_arg_t * args_array, BLASLONG nums){ int CNAME(blas_arg_t * args_array, BLASLONG nums){
XFLOAT *buffer; XFLOAT *buffer;
XFLOAT *sa, *sb; XFLOAT *sa, *sb;
int nthreads=1; int (*routine)(blas_arg_t *, void *, void *, XFLOAT *, XFLOAT *, BLASLONG);
int (*routine)(blas_arg_t *, void *, void *, double *, double *, BLASLONG); int i=0;
int i=0, j, current_nums;
#ifdef SMP #ifdef SMP
int nthreads=1;
int current_nums;
blas_queue_t * queue=NULL; blas_queue_t * queue=NULL;
#endif #endif