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

Merge pull request #4575 from martin-frbg/fixup4503 

Restore outer loop of blas_buffer_inuse setup for parallel OpenMP
This commit is contained in:
Martin Kroeker 2024-03-24 20:00:09 +01:00 committed by GitHub
parent 52b71a1673 88b5330ae7
commit 87f83ebe9c
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
driver/others/blas_server_omp.c
View File

@ -407,6 +407,7 @@ int exec_blas(BLASLONG num, blas_queue_t *queue){
} }
#endif #endif
while (true) {
for(i=0; i < MAX_PARALLEL_NUMBER; i++) { for(i=0; i < MAX_PARALLEL_NUMBER; i++) {
#ifdef HAVE_C11 #ifdef HAVE_C11
_Bool inuse = false; _Bool inuse = false;
@ -419,7 +420,9 @@ int exec_blas(BLASLONG num, blas_queue_t *queue){
break; break;
} }
} }
if (i != MAX_PARALLEL_NUMBER)
break;
}
if (openblas_omp_adaptive_env() != 0) { if (openblas_omp_adaptive_env() != 0) {
#pragma omp parallel for num_threads(num) schedule(OMP_SCHED) #pragma omp parallel for num_threads(num) schedule(OMP_SCHED)
for (i = 0; i < num; i ++) { for (i = 0; i < num; i ++) {