summaryrefslogtreecommitdiff
path: root/TESTING
diff options
context:
space:
mode:
Diffstat (limited to 'TESTING')
-rw-r--r--TESTING/EIG/dchkee.f7
-rw-r--r--TESTING/EIG/schkee.f7
2 files changed, 8 insertions, 6 deletions
diff --git a/TESTING/EIG/dchkee.f b/TESTING/EIG/dchkee.f
index bde28f23..2123aa76 100644
--- a/TESTING/EIG/dchkee.f
+++ b/TESTING/EIG/dchkee.f
@@ -1829,9 +1829,10 @@
$ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ),
$ A( 1, 4 ), A( 1, 5 ), NMAX, A( 1, 6 ),
$ A( 1, 7 ), D( 1, 1 ), D( 1, 2 ), D( 1, 3 ),
- $ D( 1, 4 ), A( 1, 8 ), A( 1, 9 ), A( 1, 10 ),
- $ A( 1, 11 ), A( 1, 12 ), D( 1, 5 ), WORK, LWORK,
- $ IWORK, LOGWRK, RESULT, INFO )
+ $ D( 1, 4 ), D( 1, 5 ), D( 1, 6 ), A( 1, 8 ),
+ $ A( 1, 9 ), A( 1, 10 ), A( 1, 11 ), A( 1, 12 ),
+ $ D( 1, 7 ), WORK, LWORK, IWORK, LOGWRK, RESULT,
+ $ INFO )
IF( INFO.NE.0 )
$ WRITE( NOUT, FMT = 9980 )'DCHKHS', INFO
270 CONTINUE
diff --git a/TESTING/EIG/schkee.f b/TESTING/EIG/schkee.f
index 946b73cb..5b6a9ba1 100644
--- a/TESTING/EIG/schkee.f
+++ b/TESTING/EIG/schkee.f
@@ -1829,9 +1829,10 @@
$ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ),
$ A( 1, 4 ), A( 1, 5 ), NMAX, A( 1, 6 ),
$ A( 1, 7 ), D( 1, 1 ), D( 1, 2 ), D( 1, 3 ),
- $ D( 1, 4 ), A( 1, 8 ), A( 1, 9 ), A( 1, 10 ),
- $ A( 1, 11 ), A( 1, 12 ), D( 1, 5 ), WORK, LWORK,
- $ IWORK, LOGWRK, RESULT, INFO )
+ $ D( 1, 4 ), D( 1, 5 ), D( 1, 6 ), A( 1, 8 ),
+ $ A( 1, 9 ), A( 1, 10 ), A( 1, 11 ), A( 1, 12 ),
+ $ D( 1, 7 ), WORK, LWORK, IWORK, LOGWRK, RESULT,
+ $ INFO )
IF( INFO.NE.0 )
$ WRITE( NOUT, FMT = 9980 )'SCHKHS', INFO
270 CONTINUE