Skip to content

Add missing thread caps #5872

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
jschueller wants to merge 2 commits into
base: develop
Choose a base branch
from
+89 −10
Open

Add missing thread caps #5872

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
c0c2dad
lapack: fix missing thread caps
jschueller Jun 29, 2026
5010c0a
blas: fix missing thread caps
jschueller Jun 29, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 5 additions & 1 deletion interface/lapack/getrs.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -126,7 +126,11 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA,

#ifdef SMP
args.common = NULL;
args.nthreads = num_cpu_avail(4);
if (args.m < 64) {
args.nthreads = 1;
} else {
args.nthreads = num_cpu_avail(4);
}

if (args.nthreads == 1) {
#endif
Expand Down
3 changes: 2 additions & 1 deletion interface/lapack/laed3.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -72,7 +72,8 @@ int NAME(blasint *k, blasint *n, blasint *n1, FLOAT *d,
if (kval == 0) return 0;

#ifdef SMP
int nthreads = num_cpu_avail(4);
int nthreads = 1;
if (n >= 64) nthreads = num_cpu_avail(4);

if (nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/laswp.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -77,7 +77,11 @@ int NAME(blasint *N, FLOAT *a, blasint *LDA, blasint *K1, blasint *K2, blasint *
flag = (incx < 0);

#ifdef SMP
nthreads = num_cpu_avail(1);
if (n < 64) {
nthreads = 1;
} else {
nthreads = num_cpu_avail(1);
}

if (nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/lauum.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -112,7 +112,11 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){

#ifdef SMP
args.common = NULL;
args.nthreads = num_cpu_avail(4);
if (args.n < 64) {
args.nthreads = 1;
} else {
args.nthreads = num_cpu_avail(4);
}

if (args.nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/trtrs.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -147,7 +147,11 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *

#ifdef SMP
args.common = NULL;
args.nthreads = num_cpu_avail(4);
if (args.m < 64) {
args.nthreads = 1;
} else {
args.nthreads = num_cpu_avail(4);
}

if (args.nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/zgetrs.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -125,7 +125,11 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA,
#endif

#ifdef SMP
args.nthreads = num_cpu_avail(4);
if (args.m < 64) {
args.nthreads = 1;
} else {
args.nthreads = num_cpu_avail(4);
}

if (args.nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/zlaswp.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -78,7 +78,11 @@ int NAME(blasint *N, FLOAT *a, blasint *LDA, blasint *K1, blasint *K2, blasint *
flag = (incx < 0);

#ifdef SMP
nthreads = num_cpu_avail(2);
if (n < 64) {
nthreads = 1;
} else {
nthreads = num_cpu_avail(2);
}

if (nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/zlauum.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -112,7 +112,11 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){

#ifdef SMP
args.common = NULL;
args.nthreads = num_cpu_avail(4);
if (args.n < 64) {
args.nthreads = 1;
} else {
args.nthreads = num_cpu_avail(4);
}

if (args.nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/ztrtri.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -125,7 +125,11 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In

#ifdef SMP
args.common = NULL;
args.nthreads = num_cpu_avail(4);
if (args.n < 64) {
args.nthreads = 1;
} else {
args.nthreads = num_cpu_avail(4);
}

if (args.nthreads == 1) {
#endif
Expand Down
6 changes: 5 additions & 1 deletion interface/lapack/ztrtrs.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -147,7 +147,11 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *

#ifdef SMP
args.common = NULL;
args.nthreads = num_cpu_avail(4);
if (args.m < 64) {
args.nthreads = 1;
} else {
args.nthreads = num_cpu_avail(4);
}

if (args.nthreads == 1) {
#endif
Expand Down
3 changes: 3 additions & 0 deletions interface/spr.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -194,6 +194,9 @@ void CNAME(enum CBLAS_ORDER order,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/spr2.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -198,6 +198,9 @@ void CNAME(enum CBLAS_ORDER order,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/syr.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -197,6 +197,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/syr2.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -199,6 +199,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/tbmv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -225,6 +225,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/tpmv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -223,6 +223,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/zhpmv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -196,6 +196,9 @@ void CNAME(enum CBLAS_ORDER order,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/zspr.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -123,6 +123,9 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/zspr2.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -126,6 +126,9 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/zsymv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -120,6 +120,9 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/zsyr.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -208,6 +208,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, void* valpha, FL
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/zsyr2.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -128,6 +128,9 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/ztbmv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -240,6 +240,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down
3 changes: 3 additions & 0 deletions interface/ztpmv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -231,6 +231,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
#ifdef SMP
nthreads = num_cpu_avail(2);

if (n < 50) nthreads = 1;
if (nthreads > 2 && n < 500) nthreads = 2;

if (nthreads == 1) {
#endif

Expand Down