diff options
author | Julien Langou <julien.langou@ucdenver.edu> | 2016-11-03 08:48:54 +0100 |
---|---|---|
committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-11-03 08:48:54 +0100 |
commit | bbff7393714b29a6ff70e8c1565784cb16a0e746 (patch) | |
tree | 146d4bc89db9148abc4b19e2e453623f1a6c7bbe /TESTING/LIN/cchkhe_aasen.f | |
parent | bd47060bcb3a470520622de69ac1426ca4186f5e (diff) |
Lots of trailing whitespaces in the files of Syd. Cleaning this. No big deal.
Diffstat (limited to 'TESTING/LIN/cchkhe_aasen.f')
-rw-r--r-- | TESTING/LIN/cchkhe_aasen.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/LIN/cchkhe_aasen.f b/TESTING/LIN/cchkhe_aasen.f index 355dd25b..33691128 100644 --- a/TESTING/LIN/cchkhe_aasen.f +++ b/TESTING/LIN/cchkhe_aasen.f @@ -225,7 +225,7 @@ * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CGET04, $ ZHECON, CHERFS, CHET01, CHETRF_AASEN, ZHETRI2, - $ CHETRS_AASEN, CLACPY, CLAIPD, CLARHS, CLATB4, + $ CHETRS_AASEN, CLACPY, CLAIPD, CLARHS, CLATB4, $ CLATMS, CPOT02, ZPOT03, ZPOT05 * .. * .. Intrinsic Functions .. @@ -433,7 +433,7 @@ * LWORK = ( NB+1 )*LDA SRNAMT = 'CHETRF_AASEN' - CALL CHETRF_AASEN( UPLO, N, AFAC, LDA, IWORK, AINV, + CALL CHETRF_AASEN( UPLO, N, AFAC, LDA, IWORK, AINV, $ LWORK, INFO ) * * Adjust the expected value of INFO to account for @@ -459,8 +459,8 @@ * Check error code from CHETRF and handle error. * IF( INFO.NE.K ) THEN - CALL ALAERH( PATH, 'CHETRF_AASEN', INFO, K, UPLO, - $ N, N, -1, -1, NB, IMAT, NFAIL, NERRS, + CALL ALAERH( PATH, 'CHETRF_AASEN', INFO, K, UPLO, + $ N, N, -1, -1, NB, IMAT, NFAIL, NERRS, $ NOUT ) END IF * |