diff options
Diffstat (limited to 'TESTING/LIN/clahilb.f')
-rw-r--r-- | TESTING/LIN/clahilb.f | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/TESTING/LIN/clahilb.f b/TESTING/LIN/clahilb.f index 0ce9eb1b..65c13404 100644 --- a/TESTING/LIN/clahilb.f +++ b/TESTING/LIN/clahilb.f @@ -8,11 +8,11 @@ * Definition: * =========== * -* SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, +* SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) * * .. Scalar Arguments .. -* INTEGER T, N, NRHS, LDA, LDX, LDB, INFO +* INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * REAL WORK(N) * COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) @@ -56,7 +56,7 @@ *> *> \param[in] NRHS *> \verbatim -*> NRHS is NRHS +*> NRHS is INTEGER *> The requested number of right-hand sides. *> \endverbatim *> @@ -131,7 +131,7 @@ *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, + SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * * -- LAPACK test routine (version 3.7.0) -- @@ -140,7 +140,7 @@ * December 2016 * * .. Scalar Arguments .. - INTEGER T, N, NRHS, LDA, LDX, LDB, INFO + INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. REAL WORK(N) COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) @@ -220,7 +220,8 @@ END DO * * Generate the scaled Hilbert matrix in A -* If we are testing SY routines, take D1_i = D2_i, else, D1_i = D2_i* +* If we are testing SY routines, take +* D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, N DO I = 1, N @@ -250,8 +251,9 @@ WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO -* -* If we are testing SY routines, take D1_i = D2_i, else, D1_i = D2_i* + +* If we are testing SY routines, +* take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS DO I = 1, N |