when dsyevr is called with N=1, then it returns without setting up ISUPPZ
values.
331: IF( N.EQ.1 ) THEN
...
342: IF( WANTZ )
343: $ Z( 1, 1 ) = ONE
344: RETURN
345: END IF
It should rather do
IF( WANTZ )
Z( 1, 1 ) = ONE
ISUPPZ(1) = 1
ISUPPZ(2) = 1
END IF
--
regards
Ashutosh Mahajan
http://coral.ie.lehigh.edu/~asm4
|
| <Prev in Thread] | Current Thread | [Next in Thread> |
|---|---|---|
| ||
| Previous by Date: | [Lapack] bug in dstemr.f when N = 2, Julien Langou |
|---|---|
| Next by Date: | [Lapack] bug in dsyevr.f when N = 1, Julien Langou |
| Previous by Thread: | [Lapack] bug in dstemr.f when N = 2, Ashutosh Mahajan |
| Next by Thread: | [Lapack] bug in dsyevr.f when N = 1, Julien Langou |
| Indexes: | [Date] [Thread] |