OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Also make sure the `1` is INTEGER*4 for OMP_SET_NUM_THREADS

tags/v0.3.18
Isuru Fernando H. Vetinari 4 years ago
parent
5a2fe5bfb9
commit
02d4a49761
4 changed files with 16 additions and 10 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +5
    -3
      lapack-netlib/TESTING/EIG/cchkee.F
  2. +3
    -2
      lapack-netlib/TESTING/EIG/dchkee.F
  3. +3
    -2
      lapack-netlib/TESTING/EIG/schkee.F
  4. +5
    -3
      lapack-netlib/TESTING/EIG/zchkee.F

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

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


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

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


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

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


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

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


Write Preview
Loading…
Cancel
Save