diff options
Diffstat (limited to 'TESTING')
-rw-r--r-- | TESTING/EIG/dchkee.f | 7 | ||||
-rw-r--r-- | TESTING/EIG/schkee.f | 7 |
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 |