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

optimized dgemm and dgetrf for POWER8

Browse Source
This commit is contained in:
Werner Saar
2016-05-17 14:45:27 +02:00
parent 88011f625d
commit 6a2bde7a2d
7 changed files with 90 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lapack/getrf/getrf_parallel_omp.c
View File

@@ -173,10 +173,17 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
blocking = (mn / 2 + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1);
if (blocking > GEMM_Q) blocking = GEMM_Q;
if (blocking <= GEMM_UNROLL_N * 2) {
#ifdef POWER8
if (blocking <= GEMM_UNROLL_N) {
info = GETF2(args, NULL, range_n, sa, sb, 0);
return info;
}
#else
if (blocking <= GEMM_UNROLL_N*2) {
info = GETF2(args, NULL, range_n, sa, sb, 0);
return info;
}
#endif
sbb = (FLOAT *)((((BLASULONG)(sb + blocking * blocking * COMPSIZE) + GEMM_ALIGN) & ~GEMM_ALIGN) + GEMM_OFFSET_B);