diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-01-20 17:33:46 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-01-20 17:33:46 +0000 |
| commit | d1e13ae04629ee20c024a9fdebf37eccb8f042f5 (patch) | |
| tree | b1f4bc2f10d2c824844c367391e4569fd2d11ac0 /TESTING/LIN/cdrvhex.f | |
| parent | 69dafd0e92b95a7fe6548027519cbb9e2bdbc5ab (diff) | |
| download | lapack-d1e13ae04629ee20c024a9fdebf37eccb8f042f5.tar.gz lapack-d1e13ae04629ee20c024a9fdebf37eccb8f042f5.tar.bz2 lapack-d1e13ae04629ee20c024a9fdebf37eccb8f042f5.zip | |
Adding new hetri routines
Diffstat (limited to 'TESTING/LIN/cdrvhex.f')
| -rw-r--r-- | TESTING/LIN/cdrvhex.f | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f index bf16a294..56aebba8 100644 --- a/TESTING/LIN/cdrvhex.f +++ b/TESTING/LIN/cdrvhex.f @@ -112,7 +112,7 @@ * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGET04, CHESV, - $ CHESVX, CHET01, CHETRF, CHETRI, CLACPY, CLAIPD, + $ CHESVX, CHET01, CHETRF, CHETRI2, CLACPY, CLAIPD, $ CLARHS, CLASET, CLATB4, CLATMS, CPOT02, CPOT05, $ XLAENV, CHESVXX * .. @@ -306,8 +306,9 @@ * Compute inv(A) and take its norm. * CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) - CALL CHETRI( UPLO, N, AINV, LDA, IWORK, WORK, - $ INFO ) + LWORK = (N+NB+1)*(NB+3) + CALL CHETRI2( UPLO, N, AINV, LDA, IWORK, WORK, + $ LWORK, INFO ) AINVNM = CLANHE( '1', UPLO, N, AINV, LDA, RWORK ) * * Compute the 1-norm condition number of A. |