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

Add environment variable OMP_ADAPTIVE

This commit is contained in:
Martin Kroeker 2022-07-27 23:41:47 +02:00 committed by GitHub
parent 047a279f09
commit 08e3754b39
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
driver/others/openblas_env.c
View File

@ -39,6 +39,7 @@ static int openblas_env_block_factor=0;
static int openblas_env_openblas_num_threads=0; static int openblas_env_openblas_num_threads=0;
static int openblas_env_goto_num_threads=0; static int openblas_env_goto_num_threads=0;
static int openblas_env_omp_num_threads=0; static int openblas_env_omp_num_threads=0;
static int openblas_env_omp_adaptive=0;
int openblas_verbose() { return openblas_env_verbose;} int openblas_verbose() { return openblas_env_verbose;}
unsigned int openblas_thread_timeout() { return openblas_env_thread_timeout;} unsigned int openblas_thread_timeout() { return openblas_env_thread_timeout;}
@ -46,6 +47,7 @@ int openblas_block_factor() { return openblas_env_block_factor;}
int openblas_num_threads_env() { return openblas_env_openblas_num_threads;} int openblas_num_threads_env() { return openblas_env_openblas_num_threads;}
int openblas_goto_num_threads_env() { return openblas_env_goto_num_threads;} int openblas_goto_num_threads_env() { return openblas_env_goto_num_threads;}
int openblas_omp_num_threads_env() { return openblas_env_omp_num_threads;} int openblas_omp_num_threads_env() { return openblas_env_omp_num_threads;}
int openblas_omp_adaptive_env() { return openblas_env_omp_adaptive;}
void openblas_read_env() { void openblas_read_env() {
int ret=0; int ret=0;
@ -79,6 +81,11 @@ void openblas_read_env() {
if(ret<0) ret=0; if(ret<0) ret=0;
openblas_env_omp_num_threads=ret; openblas_env_omp_num_threads=ret;
ret=0;
if (readenv(p,"OMP_ADAPTIVE")) ret = atoi(p);
if(ret<0) ret=0;
openblas_env_omp_adaptive=ret;
} }