From ec7a8aeaa1646a1b1879aef0eea83cdc5222ad70 Mon Sep 17 00:00:00 2001 From: julie Date: Fri, 30 Jan 2015 20:03:11 +0000 Subject: Ed Anderson Bug Fix - Jan 26 2015 related to 1522 Correct call to [SD]chkhs to add new arguments. --- TESTING/EIG/dchkee.f | 7 ++++--- TESTING/EIG/schkee.f | 7 ++++--- 2 files changed, 8 insertions(+), 6 deletions(-) (limited to 'TESTING') 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 -- cgit v1.2.3