From 2919f4e9c85817221e6d1fe45f35db5912b89126 Mon Sep 17 00:00:00 2001 From: julie Date: Thu, 4 Mar 2010 20:02:50 +0000 Subject: Shorten long lines --- TESTING/MATGEN/clahilb.f | 6 ++++-- TESTING/MATGEN/zlahilb.f | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) (limited to 'TESTING/MATGEN') 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 -- cgit v1.2.3