Browse Source

Apply lapack-testing fix from Reference-LAPACK PR536

fixes changing back from a single OMP thread for error exit testing to the originally requested number of threads for computational tests
tags/v0.3.15
Martin Kroeker GitHub 5 years ago
parent
commit
13a29d13fd
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 6 additions and 6 deletions
  1. +2
    -2
      lapack-netlib/TESTING/EIG/cchkee.F
  2. +1
    -1
      lapack-netlib/TESTING/EIG/dchkee.F
  3. +1
    -1
      lapack-netlib/TESTING/EIG/schkee.F
  4. +2
    -2
      lapack-netlib/TESTING/EIG/zchkee.F

+ 2
- 2
lapack-netlib/TESTING/EIG/cchkee.F View File

@@ -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 )


+ 1
- 1
lapack-netlib/TESTING/EIG/dchkee.F View File

@@ -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 )


+ 1
- 1
lapack-netlib/TESTING/EIG/schkee.F View File

@@ -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 )


+ 2
- 2
lapack-netlib/TESTING/EIG/zchkee.F View File

@@ -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 )


Loading…
Cancel
Save