diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-01-30 20:03:11 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-01-30 20:03:11 +0000 |
| commit | ec7a8aeaa1646a1b1879aef0eea83cdc5222ad70 (patch) | |
| tree | beafd91bca15e004a4953775cc85798cbce3e433 /TESTING | |
| parent | 024f62998124bd38a60f525b410ac43dc28989c6 (diff) | |
| download | lapack-ec7a8aeaa1646a1b1879aef0eea83cdc5222ad70.tar.gz lapack-ec7a8aeaa1646a1b1879aef0eea83cdc5222ad70.tar.bz2 lapack-ec7a8aeaa1646a1b1879aef0eea83cdc5222ad70.zip | |
Ed Anderson Bug Fix - Jan 26 2015
related to 1522
Correct call to [SD]chkhs to add new arguments.
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 |