Merge pull request #3314 from martin-frbg/lapack597

Fix LAPACK testsuite compatibility with libomp (Reference-LAPACK PR 597)
This commit is contained in:
Martin Kroeker
2021-07-23 15:30:27 +02:00
committed by GitHub
4 changed files with 8 additions and 4 deletions

View File

@@ -1075,7 +1075,8 @@
CHARACTER*80 LINE
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH, N_THREADS
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
REAL EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..

View File

@@ -1081,7 +1081,8 @@
CHARACTER*80 LINE
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH, N_THREADS
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
DOUBLE PRECISION EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..

View File

@@ -1081,7 +1081,8 @@
CHARACTER*80 LINE
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH, N_THREADS
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
REAL EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..

View File

@@ -1075,7 +1075,8 @@
CHARACTER*80 LINE
INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD,
$ NK, NN, NPARMS, NRHS, NTYPES,
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH, N_THREADS
$ VERS_MAJOR, VERS_MINOR, VERS_PATCH
INTEGER*4 N_THREADS
DOUBLE PRECISION EPS, S1, S2, THRESH, THRSHN
* ..
* .. Local Arrays ..