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
commit 342d3e8b5c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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 ..