diff options
author | langou <langou@users.noreply.github.com> | 2009-04-08 21:16:17 +0000 |
---|---|---|
committer | langou <langou@users.noreply.github.com> | 2009-04-08 21:16:17 +0000 |
commit | cd6bf778913fc535e5a0ecb79eeaf4a1ad88b291 (patch) | |
tree | 54fe9f85288aaf24328ebd7a4d6fb9fe5eb367e0 | |
parent | 47e45705b295f273c6c83f8b7f45a53cbce793d8 (diff) | |
download | lapack-cd6bf778913fc535e5a0ecb79eeaf4a1ad88b291.tar.gz lapack-cd6bf778913fc535e5a0ecb79eeaf4a1ad88b291.tar.bz2 lapack-cd6bf778913fc535e5a0ecb79eeaf4a1ad88b291.zip |
Some debug write statements were present in slafts.f and dlafts.f => removed.
-rw-r--r-- | TESTING/EIG/dlafts.f | 9 | ||||
-rw-r--r-- | TESTING/EIG/slafts.f | 9 |
2 files changed, 0 insertions, 18 deletions
diff --git a/TESTING/EIG/dlafts.f b/TESTING/EIG/dlafts.f index 8923023d..a5a2e4fe 100644 --- a/TESTING/EIG/dlafts.f +++ b/TESTING/EIG/dlafts.f @@ -94,11 +94,6 @@ IF( IE.EQ.0 ) $ CALL DLAHD2( IOUNIT, TYPE ) IE = IE + 1 -*** WRITE( IOUNIT, 15 )' Matrix of order', N, -*** $ ', type ', IMAT, -*** $ ', test ', K, -*** $ ', ratio = ', RESULT( K ) -*** 15 FORMAT( A16, I5, 2( A8, I2 ), A11, G13.6 ) IF( RESULT( K ).LT.10000.0D0 ) THEN WRITE( IOUNIT, FMT = 9999 )N, IMAT, ISEED, K, $ RESULT( K ) @@ -127,10 +122,6 @@ IF( IE.EQ.0 ) $ CALL DLAHD2( IOUNIT, TYPE ) IE = IE + 1 -*** WRITE( IOUNIT, FMT = 9997 )' Matrix of size', M, ' x', -*** $ N, ', type ', IMAT, ', test ', K, ', ratio = ', -*** $ RESULT( K ) -*** 9997 FORMAT( A10, I5, A2, I5, A7, I2, A8, I2, A11, G13.6 ) IF( RESULT( K ).LT.10000.0D0 ) THEN WRITE( IOUNIT, FMT = 9997 )M, N, IMAT, ISEED, K, $ RESULT( K ) diff --git a/TESTING/EIG/slafts.f b/TESTING/EIG/slafts.f index e0e659ac..c82a0269 100644 --- a/TESTING/EIG/slafts.f +++ b/TESTING/EIG/slafts.f @@ -94,11 +94,6 @@ IF( IE.EQ.0 ) $ CALL SLAHD2( IOUNIT, TYPE ) IE = IE + 1 -*** WRITE( IOUNIT, 15 )' Matrix of order', N, -*** $ ', type ', IMAT, -*** $ ', test ', K, -*** $ ', ratio = ', RESULT( K ) -*** 15 FORMAT( A16, I5, 2( A8, I2 ), A11, G13.6 ) IF( RESULT( K ).LT.10000.0 ) THEN WRITE( IOUNIT, FMT = 9999 )N, IMAT, ISEED, K, $ RESULT( K ) @@ -127,10 +122,6 @@ IF( IE.EQ.0 ) $ CALL SLAHD2( IOUNIT, TYPE ) IE = IE + 1 -*** WRITE( IOUNIT, FMT = 9997 )' Matrix of size', M, ' x', -*** $ N, ', type ', IMAT, ', test ', K, ', ratio = ', -*** $ RESULT( K ) -*** 9997 FORMAT( A10, I5, A2, I5, A7, I2, A8, I2, A11, G13.6 ) IF( RESULT( K ).LT.10000.0 ) THEN WRITE( IOUNIT, FMT = 9997 )M, N, IMAT, ISEED, K, $ RESULT( K ) |