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 /CMAKE | |
| parent | 472bfdccf7aa2fef03d010e8f60644cf90383e9d (diff) | |
| download | lapack-b860077bc7317de1943efb058df48de0bddcab7c.tar.gz lapack-b860077bc7317de1943efb058df48de0bddcab7c.tar.bz2 lapack-b860077bc7317de1943efb058df48de0bddcab7c.zip | |
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 'CMAKE')
0 files changed, 0 insertions, 0 deletions