diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-11-15 02:50:39 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-11-15 02:50:39 +0000 |
| commit | 39a7b4621f21356d51dbaaa334a9cf307b310c8e (patch) | |
| tree | e279426098d4a729de54b696bff9ef0612979960 /TESTING | |
| parent | cdf546c3ece4b2501c787e4dbc396cb02788f691 (diff) | |
Add the missing CONJG ...
TESTINGS are all good now!
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/cdrvbd.f | 16 | ||||
| -rw-r--r-- | TESTING/EIG/zdrvbd.f | 14 |
2 files changed, 13 insertions, 17 deletions
diff --git a/TESTING/EIG/cdrvbd.f b/TESTING/EIG/cdrvbd.f index 612672df..16e558dc 100644 --- a/TESTING/EIG/cdrvbd.f +++ b/TESTING/EIG/cdrvbd.f @@ -866,7 +866,7 @@ * DO J=1,N DO I=1,N - VTSAV(J,I) = A(I,J) + VTSAV(J,I) = CONJG (A(I,J)) END DO END DO * @@ -879,9 +879,8 @@ * * Do tests 15--18 * -* TEST 15 NOT PASSING THE THREASHOLD -* CALL CBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, -* $ VTSAV, LDVT, WORK, RWORK, RESULT( 15 ) ) + CALL CBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, + $ VTSAV, LDVT, WORK, RWORK, RESULT( 15 ) ) IF( M.NE.0 .AND. N.NE.0 ) THEN CALL CUNT01( 'Columns', M, M, USAV, LDU, WORK, $ LWORK, RWORK, RESULT( 16 ) ) @@ -917,7 +916,7 @@ $ LSWORK = LWORK LRWORK = MAX( 7, N + 2*M) * - CALL CLACPY( 'F', M, N, ASAV, LDA, VTSAV, LDA ) + CALL CLACPY( 'F', M, N, ASAV, LDA, VTSAV, LDA ) SRNAMT = 'CGEJSV' CALL CGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', & M, N, VTSAV, LDA, SSAV, USAV, LDU, A, LDVT, @@ -929,7 +928,7 @@ * DO 133 J=1,N DO 132 I=1,N - VTSAV(J,I) = A(I,J) + VTSAV(J,I) = CONJG (A(I,J)) 132 END DO 133 END DO * @@ -942,9 +941,8 @@ * * Do tests 19--22 * -* TEST 19 NOT PASSING THE THREASHOLD -* CALL CBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, -* $ VTSAV, LDVT, WORK, RWORK, RESULT( 19 ) ) + CALL CBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, + $ VTSAV, LDVT, WORK, RWORK, RESULT( 19 ) ) IF( M.NE.0 .AND. N.NE.0 ) THEN CALL CUNT01( 'Columns', M, M, USAV, LDU, WORK, $ LWORK, RWORK, RESULT( 20 ) ) diff --git a/TESTING/EIG/zdrvbd.f b/TESTING/EIG/zdrvbd.f index f390bc06..06d90fee 100644 --- a/TESTING/EIG/zdrvbd.f +++ b/TESTING/EIG/zdrvbd.f @@ -866,7 +866,7 @@ * DO J=1,N DO I=1,N - VTSAV(J,I) = A(I,J) + VTSAV(J,I) = CONJG (A(I,J)) END DO END DO * @@ -879,9 +879,8 @@ * * Do tests 15--18 * -* TEST 15 NOT PASSING THE THREASHOLD -* CALL ZBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, -* $ VTSAV, LDVT, WORK, RWORK, RESULT( 15 ) ) + CALL ZBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, + $ VTSAV, LDVT, WORK, RWORK, RESULT( 15 ) ) IF( M.NE.0 .AND. N.NE.0 ) THEN CALL ZUNT01( 'Columns', M, M, USAV, LDU, WORK, $ LWORK, RWORK, RESULT( 16 ) ) @@ -929,7 +928,7 @@ * DO 133 J=1,N DO 132 I=1,N - VTSAV(J,I) = A(I,J) + VTSAV(J,I) = CONJG (A(I,J)) 132 END DO 133 END DO * @@ -942,9 +941,8 @@ * * Do tests 19--22 * -* TEST 19 NOT PASSING THE THREASHOLD -* CALL ZBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, -* $ VTSAV, LDVT, WORK, RWORK, RESULT( 19 ) ) + CALL ZBDT01( M, N, 0, ASAV, LDA, USAV, LDU, SSAV, E, + $ VTSAV, LDVT, WORK, RWORK, RESULT( 19 ) ) IF( M.NE.0 .AND. N.NE.0 ) THEN CALL ZUNT01( 'Columns', M, M, USAV, LDU, WORK, $ LWORK, RWORK, RESULT( 20 ) ) |