Browse Source
Use normwise criterion for INF eigenvalues in QZ (Reference-LAPACK PR698)
tags/v0.3.22^2
Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 8 additions and 28 deletions
Unified View
Diff Options
-
+2 -7lapack-netlib/SRC/chgeqz.f
-
+2 -7lapack-netlib/SRC/dhgeqz.f
-
+2 -7lapack-netlib/SRC/shgeqz.f
-
+2 -7lapack-netlib/SRC/zhgeqz.f
+ 2
- 7
lapack-netlib/SRC/chgeqz.f
View File
| @@ -523,9 +523,7 @@ | |||||
| END IF | END IF | ||||
| END IF | END IF | ||||
| * | * | ||||
| IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( | |||||
| $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) | |||||
| $ ) ) ) ) THEN | |||||
| IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN | |||||
| T( ILAST, ILAST ) = CZERO | T( ILAST, ILAST ) = CZERO | ||||
| GO TO 50 | GO TO 50 | ||||
| END IF | END IF | ||||
| @@ -551,10 +549,7 @@ | |||||
| * | * | ||||
| * Test 2: for T(j,j)=0 | * Test 2: for T(j,j)=0 | ||||
| * | * | ||||
| TEMP = ABS ( T( J, J + 1 ) ) | |||||
| IF ( J .GT. ILO ) | |||||
| $ TEMP = TEMP + ABS ( T( J - 1, J ) ) | |||||
| IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN | |||||
| IF( ABS( T( J, J ) ).LT.BTOL ) THEN | |||||
| T( J, J ) = CZERO | T( J, J ) = CZERO | ||||
| * | * | ||||
| * Test 1a: Check for 2 consecutive small subdiagonals in A | * Test 1a: Check for 2 consecutive small subdiagonals in A | ||||
+ 2
- 7
lapack-netlib/SRC/dhgeqz.f
View File
| @@ -536,9 +536,7 @@ | |||||
| END IF | END IF | ||||
| END IF | END IF | ||||
| * | * | ||||
| IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( | |||||
| $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) | |||||
| $ ) ) ) ) THEN | |||||
| IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN | |||||
| T( ILAST, ILAST ) = ZERO | T( ILAST, ILAST ) = ZERO | ||||
| GO TO 70 | GO TO 70 | ||||
| END IF | END IF | ||||
| @@ -564,10 +562,7 @@ | |||||
| * | * | ||||
| * Test 2: for T(j,j)=0 | * Test 2: for T(j,j)=0 | ||||
| * | * | ||||
| TEMP = ABS ( T( J, J + 1 ) ) | |||||
| IF ( J .GT. ILO ) | |||||
| $ TEMP = TEMP + ABS ( T( J - 1, J ) ) | |||||
| IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN | |||||
| IF( ABS( T( J, J ) ).LT.BTOL ) THEN | |||||
| T( J, J ) = ZERO | T( J, J ) = ZERO | ||||
| * | * | ||||
| * Test 1a: Check for 2 consecutive small subdiagonals in A | * Test 1a: Check for 2 consecutive small subdiagonals in A | ||||
+ 2
- 7
lapack-netlib/SRC/shgeqz.f
View File
| @@ -536,9 +536,7 @@ | |||||
| END IF | END IF | ||||
| END IF | END IF | ||||
| * | * | ||||
| IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( | |||||
| $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) | |||||
| $ ) ) ) ) THEN | |||||
| IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN | |||||
| T( ILAST, ILAST ) = ZERO | T( ILAST, ILAST ) = ZERO | ||||
| GO TO 70 | GO TO 70 | ||||
| END IF | END IF | ||||
| @@ -564,10 +562,7 @@ | |||||
| * | * | ||||
| * Test 2: for T(j,j)=0 | * Test 2: for T(j,j)=0 | ||||
| * | * | ||||
| TEMP = ABS ( T( J, J + 1 ) ) | |||||
| IF ( J .GT. ILO ) | |||||
| $ TEMP = TEMP + ABS ( T( J - 1, J ) ) | |||||
| IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN | |||||
| IF( ABS( T( J, J ) ).LT.BTOL ) THEN | |||||
| T( J, J ) = ZERO | T( J, J ) = ZERO | ||||
| * | * | ||||
| * Test 1a: Check for 2 consecutive small subdiagonals in A | * Test 1a: Check for 2 consecutive small subdiagonals in A | ||||
+ 2
- 7
lapack-netlib/SRC/zhgeqz.f
View File
| @@ -524,9 +524,7 @@ | |||||
| END IF | END IF | ||||
| END IF | END IF | ||||
| * | * | ||||
| IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( | |||||
| $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) | |||||
| $ ) ) ) ) THEN | |||||
| IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN | |||||
| T( ILAST, ILAST ) = CZERO | T( ILAST, ILAST ) = CZERO | ||||
| GO TO 50 | GO TO 50 | ||||
| END IF | END IF | ||||
| @@ -552,10 +550,7 @@ | |||||
| * | * | ||||
| * Test 2: for T(j,j)=0 | * Test 2: for T(j,j)=0 | ||||
| * | * | ||||
| TEMP = ABS ( T( J, J + 1 ) ) | |||||
| IF ( J .GT. ILO ) | |||||
| $ TEMP = TEMP + ABS ( T( J - 1, J ) ) | |||||
| IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN | |||||
| IF( ABS( T( J, J ) ).LT.BTOL ) THEN | |||||
| T( J, J ) = CZERO | T( J, J ) = CZERO | ||||
| * | * | ||||
| * Test 1a: Check for 2 consecutive small subdiagonals in A | * Test 1a: Check for 2 consecutive small subdiagonals in A | ||||