Ed Anderson Bug Fix - Jan 26 2015
authorjulie <julielangou@users.noreply.github.com>
Fri, 30 Jan 2015 19:24:26 +0000 (19:24 +0000)
committerjulie <julielangou@users.noreply.github.com>
Fri, 30 Jan 2015 19:24:26 +0000 (19:24 +0000)
commitc6bcd83265f7b6d44e05ed2336d664ee8622f70a
treea3f130f2104d7a2894e9316db96f49b1b773f75d
parentb1ebc7d44e19995ed50619030bf57ed9138b485e
Ed Anderson Bug Fix - Jan 26 2015

Also in TESTING/EIG, I fixed two bugs in s/d chkhs; the diff of schkhs is:
790c790
<             CALL SLACPY( ' ', N, N, U, LDU, UZ, LDU )
---
>             CALL SLACPY( ' ', N, N, U, LDU, UZ, LDA )
831c831
<      $                 ABS( WI1( J )-WI3( J ) ) )
---
>      $                 ABS( WR1( J )-WR3( J ) ) )
In further testing, I was able to produce a test case where Test 8 fails comparing
the eigenvalues from xHSEQR(‘E’,’N’) with the eigenvalues from xHSEQR(‘S’,’V’).
The eigenvalues were the same, but in a different order.  It appears that xHSEQR
does some rearrangement of the Schur matrix and so we should not expect the
eigenvalues to be in the same order, although I am trying to confirm this
with the authors.  In the meantime, I have modified xCHKEE and xCHKHS to
compute the eigenvalues from xHSEQR(‘S’,’N’) in a separate array W2 (or
WR2 and WI2) so that test 8 can compare the eigenvalues from xHSEQR(‘S’,’N’)
with the eigenvalues from xHSEQR(‘S’,’V’).
TESTING/EIG/dchkhs.f
TESTING/EIG/schkhs.f