From ecfc5e7828f1d654da14886ebe5b5ef97a14faac Mon Sep 17 00:00:00 2001 From: igor175 Date: Sun, 25 Dec 2011 04:01:51 +0000 Subject: [PATCH] fixed a bug in the counter for the number of completed tests in schksy.f dchksy.f cchksy.f zchksy.f --- TESTING/LIN/cchksy.f | 10 +++------- TESTING/LIN/dchksy.f | 10 +++------- TESTING/LIN/schksy.f | 10 +++------- TESTING/LIN/zchksy.f | 10 +++------- 4 files changed, 12 insertions(+), 28 deletions(-) diff --git a/TESTING/LIN/cchksy.f b/TESTING/LIN/cchksy.f index a5fa8a3..372a7f4 100644 --- a/TESTING/LIN/cchksy.f +++ b/TESTING/LIN/cchksy.f @@ -453,16 +453,12 @@ TRFCON = .FALSE. END IF * -* Set the test type counter -* - NT = 0 -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * CALL CSYT01( UPLO, N, A, LDA, AFAC, LDA, IWORK, AINV, $ LDA, RWORK, RESULT( 1 ) ) - NT = NT + 1 + NT = 1 * *+ TEST 2 * Form the inverse and compute the residual, @@ -489,7 +485,7 @@ * CALL CSYT03( UPLO, N, A, LDA, AINV, LDA, WORK, LDA, $ RWORK, RCONDC, RESULT( 2 ) ) - NT = NT + 1 + NT = 2 END IF * * Print information about the tests that did not pass @@ -610,7 +606,7 @@ NFAIL = NFAIL + 1 END IF 120 CONTINUE - NRUN = NRUN + 5 + NRUN = NRUN + 6 130 CONTINUE * *+ TEST 9 diff --git a/TESTING/LIN/dchksy.f b/TESTING/LIN/dchksy.f index f57d655..1795013 100644 --- a/TESTING/LIN/dchksy.f +++ b/TESTING/LIN/dchksy.f @@ -445,16 +445,12 @@ TRFCON = .FALSE. END IF * -* Set the test type counter -* - NT = 0 -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * CALL DSYT01( UPLO, N, A, LDA, AFAC, LDA, IWORK, AINV, $ LDA, RWORK, RESULT( 1 ) ) - NT = NT + 1 + NT = 1 * *+ TEST 2 * Form the inverse and compute the residual, @@ -481,7 +477,7 @@ * CALL DPOT03( UPLO, N, A, LDA, AINV, LDA, WORK, LDA, $ RWORK, RCONDC, RESULT( 2 ) ) - NT = NT + 1 + NT = 2 END IF * * Print information about the tests that did not pass @@ -603,7 +599,7 @@ NFAIL = NFAIL + 1 END IF 120 CONTINUE - NRUN = NRUN + 5 + NRUN = NRUN + 6 130 CONTINUE * *+ TEST 9 diff --git a/TESTING/LIN/schksy.f b/TESTING/LIN/schksy.f index e8395f9..c03b3a9 100644 --- a/TESTING/LIN/schksy.f +++ b/TESTING/LIN/schksy.f @@ -445,16 +445,12 @@ TRFCON = .FALSE. END IF * -* Set the test type counter -* - NT = 0 -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * CALL SSYT01( UPLO, N, A, LDA, AFAC, LDA, IWORK, AINV, $ LDA, RWORK, RESULT( 1 ) ) - NT = NT + 1 + NT = 1 * *+ TEST 2 * Form the inverse and compute the residual, @@ -481,7 +477,7 @@ * CALL SPOT03( UPLO, N, A, LDA, AINV, LDA, WORK, LDA, $ RWORK, RCONDC, RESULT( 2 ) ) - NT = NT + 1 + NT = 2 END IF * * Print information about the tests that did not pass @@ -602,7 +598,7 @@ NFAIL = NFAIL + 1 END IF 120 CONTINUE - NRUN = NRUN + 5 + NRUN = NRUN + 6 130 CONTINUE * *+ TEST 9 diff --git a/TESTING/LIN/zchksy.f b/TESTING/LIN/zchksy.f index 6ef3880..3d727de 100644 --- a/TESTING/LIN/zchksy.f +++ b/TESTING/LIN/zchksy.f @@ -451,16 +451,12 @@ TRFCON = .FALSE. END IF * -* Set the test type counter -* - NT = 0 -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * CALL ZSYT01( UPLO, N, A, LDA, AFAC, LDA, IWORK, AINV, $ LDA, RWORK, RESULT( 1 ) ) - NT = NT + 1 + NT = 1 * *+ TEST 2 * Form the inverse and compute the residual, @@ -487,7 +483,7 @@ * CALL ZSYT03( UPLO, N, A, LDA, AINV, LDA, WORK, LDA, $ RWORK, RCONDC, RESULT( 2 ) ) - NT = NT + 1 + NT = 2 END IF * * Print information about the tests that did not pass @@ -609,7 +605,7 @@ NFAIL = NFAIL + 1 END IF 120 CONTINUE - NRUN = NRUN + 5 + NRUN = NRUN + 6 130 CONTINUE * *+ TEST 9 -- 2.7.4