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

Merge pull request #3327 from h-vetinari/lapack597_redux 

Complete the carry of lapack PR 597
This commit is contained in:
Martin Kroeker 2021-07-28 23:04:02 +02:00 committed by GitHub
parent f681553c6a 02d4a49761
commit 1b6db3dbba
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lapack-netlib/TESTING/EIG/cchkee.F
View File

@ -1076,7 +1076,7 @@
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
INTEGER*4 N_THREADS, ONE_THREAD
REAL EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..
@ -1873,7 +1873,8 @@
IF( TSTERR ) THEN
#if defined(_OPENMP)
N_THREADS = OMP_GET_MAX_THREADS()
CALL OMP_SET_NUM_THREADS(1)
ONE_THREAD = 1
CALL OMP_SET_NUM_THREADS(ONE_THREAD)
#endif
CALL CERRST( 'CST', NOUT )
#if defined(_OPENMP)
@ -2340,7 +2341,8 @@
IF( TSTERR ) THEN
#if defined(_OPENMP)
N_THREADS = OMP_GET_MAX_THREADS()
CALL OMP_SET_NUM_THREADS(1)
ONE_THREAD = 1
CALL OMP_SET_NUM_THREADS(ONE_THREAD)
#endif
CALL CERRST( 'CHB', NOUT )
#if defined(_OPENMP)

5
lapack-netlib/TESTING/EIG/dchkee.F
View File

@ -1082,7 +1082,7 @@
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
INTEGER*4 N_THREADS, ONE_THREAD
DOUBLE PRECISION EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..
@ -1878,7 +1878,8 @@
IF( TSTERR ) THEN
#if defined(_OPENMP)
N_THREADS = OMP_GET_MAX_THREADS()
CALL OMP_SET_NUM_THREADS(1)
ONE_THREAD = 1
CALL OMP_SET_NUM_THREADS(ONE_THREAD)
#endif
CALL DERRST( 'DST', NOUT )
#if defined(_OPENMP)

5
lapack-netlib/TESTING/EIG/schkee.F
View File

@ -1082,7 +1082,7 @@
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
INTEGER*4 N_THREADS, ONE_THREAD
REAL EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..
@ -1879,7 +1879,8 @@
IF( TSTERR ) THEN
#if defined(_OPENMP)
N_THREADS = OMP_GET_MAX_THREADS()
CALL OMP_SET_NUM_THREADS(1)
ONE_THREAD = 1
CALL OMP_SET_NUM_THREADS(ONE_THREAD)
#endif
CALL SERRST( 'SST', NOUT )
#if defined(_OPENMP)

8
lapack-netlib/TESTING/EIG/zchkee.F
View File

@ -1076,7 +1076,7 @@
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
INTEGER*4 N_THREADS, ONE_THREAD
DOUBLE PRECISION EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..
@ -1873,7 +1873,8 @@
IF( TSTERR ) THEN
#if defined(_OPENMP)
N_THREADS = OMP_GET_MAX_THREADS()
CALL OMP_SET_NUM_THREADS(1)
ONE_THREAD = 1
CALL OMP_SET_NUM_THREADS(ONE_THREAD)
#endif
CALL ZERRST( 'ZST', NOUT )
#if defined(_OPENMP)
@ -2338,7 +2339,8 @@
IF( TSTERR ) THEN
#if defined(_OPENMP)
N_THREADS = OMP_GET_MAX_THREADS()
CALL OMP_SET_NUM_THREADS(1)
ONE_THREAD = 1
CALL OMP_SET_NUM_THREADS(ONE_THREAD)
#endif
CALL ZERRST( 'ZHB', NOUT )
#if defined(_OPENMP)