diff options
Diffstat (limited to 'TESTING/MATGEN/zlahilb.f')
| -rw-r--r-- | TESTING/MATGEN/zlahilb.f | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/TESTING/MATGEN/zlahilb.f b/TESTING/MATGEN/zlahilb.f index 9350684b..ace37e06 100644 --- a/TESTING/MATGEN/zlahilb.f +++ b/TESTING/MATGEN/zlahilb.f @@ -154,7 +154,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 @@ -185,7 +186,8 @@ $ * (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 |