Skip to content

Commit 4bcc555

Browse files
committed
code fixed: take absolute value to make comparison correct
1 parent 3cab95c commit 4bcc555

File tree

4 files changed

+6
-6
lines changed

4 files changed

+6
-6
lines changed

TESTING/EIG/cget52.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -277,7 +277,7 @@ SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA,
277277
DO 20 J = 1, N
278278
TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) )
279279
20 CONTINUE
280-
ENRMER = MAX( ENRMER, TEMP1-ONE )
280+
ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
281281
30 CONTINUE
282282
*
283283
* Compute RESULT(2) : the normalization error in E.

TESTING/EIG/dget52.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -360,14 +360,14 @@ SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR,
360360
DO 20 J = 1, N
361361
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) )
362362
20 CONTINUE
363-
ENRMER = MAX( ENRMER, TEMP1-ONE )
363+
ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
364364
ELSE
365365
ILCPLX = .TRUE.
366366
DO 30 J = 1, N
367367
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+
368368
$ ABS( E( J, JVEC+1 ) ) )
369369
30 CONTINUE
370-
ENRMER = MAX( ENRMER, TEMP1-ONE )
370+
ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
371371
END IF
372372
END IF
373373
40 CONTINUE

TESTING/EIG/sget52.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -360,14 +360,14 @@ SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR,
360360
DO 20 J = 1, N
361361
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) )
362362
20 CONTINUE
363-
ENRMER = MAX( ENRMER, TEMP1-ONE )
363+
ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
364364
ELSE
365365
ILCPLX = .TRUE.
366366
DO 30 J = 1, N
367367
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+
368368
$ ABS( E( J, JVEC+1 ) ) )
369369
30 CONTINUE
370-
ENRMER = MAX( ENRMER, TEMP1-ONE )
370+
ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
371371
END IF
372372
END IF
373373
40 CONTINUE

TESTING/EIG/zget52.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -278,7 +278,7 @@ SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA,
278278
DO 20 J = 1, N
279279
TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) )
280280
20 CONTINUE
281-
ENRMER = MAX( ENRMER, TEMP1-ONE )
281+
ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
282282
30 CONTINUE
283283
*
284284
* Compute RESULT(2) : the normalization error in E.

0 commit comments

Comments
 (0)