diff options
| author | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 14:40:32 -0500 |
|---|---|---|
| committer | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 14:40:32 -0500 |
| commit | c273c5da1de722032cbdbb7d541c6157141e2dbb (patch) | |
| tree | 2e525128f39a7af9753436eb0601cd6a6dff0113 /TESTING/LIN/cchkhe_aa.f | |
| parent | 9ce3cd6ac9ebf2e74e2c7c06bab6df20c1c13903 (diff) | |
| download | lapack-c273c5da1de722032cbdbb7d541c6157141e2dbb.tar.gz lapack-c273c5da1de722032cbdbb7d541c6157141e2dbb.tar.bz2 lapack-c273c5da1de722032cbdbb7d541c6157141e2dbb.zip | |
some clean ups for Aasen's tester.
Diffstat (limited to 'TESTING/LIN/cchkhe_aa.f')
| -rw-r--r-- | TESTING/LIN/cchkhe_aa.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f index 702677bd..5982c619 100644 --- a/TESTING/LIN/cchkhe_aa.f +++ b/TESTING/LIN/cchkhe_aa.f @@ -224,7 +224,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CGET04, - $ ZHECON, CHERFS, CHET01, CHETRF_AA, ZHETRI2, + $ ZHECON, CHERFS, CHET01_AA, CHETRF_AA, ZHETRI2, $ CHETRS_AA, CLACPY, CLAIPD, CLARHS, CLATB4, $ CLATMS, CPOT02, ZPOT03, ZPOT05 * .. @@ -434,7 +434,7 @@ LWORK = ( NB+1 )*LDA SRNAMT = 'CHETRF_AA' CALL CHETRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV, - $ LWORK, INFO ) + $ LWORK, INFO ) * * Adjust the expected value of INFO to account for * pivoting. @@ -476,7 +476,7 @@ * Reconstruct matrix from factors and compute residual. * CALL CHET01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK, - $ AINV, LDA, RWORK, RESULT( 1 ) ) + $ AINV, LDA, RWORK, RESULT( 1 ) ) NT = 1 * * @@ -521,7 +521,7 @@ SRNAMT = 'CHETRS_AA' LWORK = 3*N-2 CALL CHETRS_AA( UPLO, N, NRHS, AFAC, LDA, IWORK, - $ X, LDA, WORK, LWORK, INFO ) + $ X, LDA, WORK, LWORK, INFO ) * * Check error code from CHETRS and handle error. * |