diff options
| author | julie <julielangou@users.noreply.github.com> | 2010-03-04 20:02:50 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2010-03-04 20:02:50 +0000 |
| commit | 2919f4e9c85817221e6d1fe45f35db5912b89126 (patch) | |
| tree | 4150c6d159b69c86314c82163b033a292b839294 | |
| parent | f8a57a933eecf5905a918d43b3e7f21a26825265 (diff) | |
| download | lapack-2919f4e9c85817221e6d1fe45f35db5912b89126.tar.gz lapack-2919f4e9c85817221e6d1fe45f35db5912b89126.tar.bz2 lapack-2919f4e9c85817221e6d1fe45f35db5912b89126.zip | |
Shorten long lines
| -rw-r--r-- | TESTING/MATGEN/clahilb.f | 6 | ||||
| -rw-r--r-- | TESTING/MATGEN/zlahilb.f | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/TESTING/MATGEN/clahilb.f b/TESTING/MATGEN/clahilb.f index fcc054eb..692eae08 100644 --- a/TESTING/MATGEN/clahilb.f +++ b/TESTING/MATGEN/clahilb.f @@ -155,7 +155,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 @@ -186,7 +187,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 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 |