diff options
author | julie <julielangou@users.noreply.github.com> | 2011-03-04 20:44:21 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-03-04 20:44:21 +0000 |
commit | b860077bc7317de1943efb058df48de0bddcab7c (patch) | |
tree | f27c4ee3c1a474f7b6966266a87ccb408a6a6744 /SRC/ssysv.f | |
parent | 472bfdccf7aa2fef03d010e8f60644cf90383e9d (diff) |
Correct bug 0076 reported by Intel Team on lapack forum
Problem in ?(sy/he)tri2 was found.
For matrices with small N subroutine pass parameter NBMAX to ?(sy/he)tri2x which could be large than N.
In test for this functionality this is hide. Local test subroutine ilaenv.f pass proper values of NB. But if use ordinary ilaenv we will get mistake.
If we implemented
IF ( NBMAX .GE. N ) THEN
MINSIZE = N
ELSE
MINSIZE = (N+NBMAX+1)*(NBMAX+3)
END IF
and will call
IF( NBMAX .GE. N ) THEN
CALL SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO )
ELSE
CALL SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NBMAX, INFO )
END IF
the problem will be solved.
Some other minor changes on workspace query.
Diffstat (limited to 'SRC/ssysv.f')
-rw-r--r-- | SRC/ssysv.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/ssysv.f b/SRC/ssysv.f index 915fcae7..9743dd8a 100644 --- a/SRC/ssysv.f +++ b/SRC/ssysv.f @@ -145,8 +145,8 @@ IF( N.EQ.0 ) THEN LWKOPT = 1 ELSE - NB = ILAENV( 1, 'SSYTRF', UPLO, N, -1, -1, -1 ) - LWKOPT = N*NB + CALL SSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) + LWKOPT = WORK(1) END IF WORK( 1 ) = LWKOPT END IF |