diff --git a/lapack-netlib/TESTING/EIG/cchkee.F b/lapack-netlib/TESTING/EIG/cchkee.F index 0d3d7493c..de4aed696 100644 --- a/lapack-netlib/TESTING/EIG/cchkee.F +++ b/lapack-netlib/TESTING/EIG/cchkee.F @@ -1871,7 +1871,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL CERRST( 'CST', NOUT ) @@ -2338,7 +2338,7 @@ CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL CERRST( 'CHB', NOUT ) diff --git a/lapack-netlib/TESTING/EIG/dchkee.F b/lapack-netlib/TESTING/EIG/dchkee.F index ee22ce33d..00e8eb57f 100644 --- a/lapack-netlib/TESTING/EIG/dchkee.F +++ b/lapack-netlib/TESTING/EIG/dchkee.F @@ -1876,7 +1876,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL DERRST( 'DST', NOUT ) diff --git a/lapack-netlib/TESTING/EIG/schkee.F b/lapack-netlib/TESTING/EIG/schkee.F index a063c18b5..c3f9ca162 100644 --- a/lapack-netlib/TESTING/EIG/schkee.F +++ b/lapack-netlib/TESTING/EIG/schkee.F @@ -1877,7 +1877,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL SERRST( 'SST', NOUT ) diff --git a/lapack-netlib/TESTING/EIG/zchkee.F b/lapack-netlib/TESTING/EIG/zchkee.F index 29604956d..908b7d651 100644 --- a/lapack-netlib/TESTING/EIG/zchkee.F +++ b/lapack-netlib/TESTING/EIG/zchkee.F @@ -1871,7 +1871,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL ZERRST( 'ZST', NOUT ) @@ -2336,7 +2336,7 @@ CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL ZERRST( 'ZHB', NOUT )