fix typo

Author: thijssteel

SRC/clahqr.f

@@ -194,6 +194,7 @@
 *  =====================================================================
       SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
      $                   IHIZ, Z, LDZ, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 3.7.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
@@ -317,9 +318,9 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
 *
       ITMAX = 30 * MAX( 10, NH )
 *
-*     KDFL counts the number of iterations since a deflation
+*     KDEFL counts the number of iterations since a deflation
 *
-      KDFL = -2
+      KDEFL = -2
 *
 *     The main loop begins here. I is the loop index and decreases from
 *     IHI to ILO in steps of 1. Each iteration of the loop works
@@ -564,7 +565,7 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
 *
       W( I ) = H( I, I )
 *     reset deflation counter
-      KDFL = 0
+      KDEFL = 0
 *
 *     return to start of the main loop with new value of I.
 *

SRC/dlahqr.f

@@ -206,6 +206,7 @@
 *  =====================================================================
       SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI,
      $                   ILOZ, IHIZ, Z, LDZ, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 3.7.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
@@ -297,9 +298,9 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI,
 *
       ITMAX = 30 * MAX( 10, NH )
 *
-*     KDFL counts the number of iterations since a deflation
+*     KDEFL counts the number of iterations since a deflation
 *
-      KDFL = -2
+      KDEFL = -2
 *
 *     The main loop begins here. I is the loop index and decreases from
 *     IHI to ILO in steps of 1 or 2. Each iteration of the loop works
@@ -608,7 +609,7 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI,
          END IF
       END IF
 *     reset deflation counter
-      KDFL = 0
+      KDEFL = 0
 *
 *     return to start of the main loop with new value of I.
 *

SRC/slahqr.f

@@ -206,6 +206,7 @@
 *  =====================================================================
       SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI,
      $                   ILOZ, IHIZ, Z, LDZ, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 3.7.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
@@ -297,9 +298,9 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI,
 *
       ITMAX = 30 * MAX( 10, NH )
 *
-*     KDFL counts the number of iterations since a deflation
+*     KDEFL counts the number of iterations since a deflation
 *
-      KDFL = -2
+      KDEFL = -2
 *
 *     The main loop begins here. I is the loop index and decreases from
 *     IHI to ILO in steps of 1 or 2. Each iteration of the loop works
@@ -607,7 +608,7 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI,
          END IF
       END IF
 *     reset deflation counter
-      KDFL = 0
+      KDEFL = 0
 *
 *     return to start of the main loop with new value of I.
 *

SRC/zlahqr.f

@@ -194,6 +194,7 @@
 *  =====================================================================
       SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
      $                   IHIZ, Z, LDZ, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 3.7.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
@@ -317,9 +318,9 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
 *
       ITMAX = 30 * MAX( 10, NH )
 *
-*     KDFL counts the number of iterations since a deflation
+*     KDEFL counts the number of iterations since a deflation
 *
-      KDFL = -2
+      KDEFL = -2
 *
 *     The main loop begins here. I is the loop index and decreases from
 *     IHI to ILO in steps of 1. Each iteration of the loop works
@@ -565,7 +566,7 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
 *
       W( I ) = H( I, I )
 *     reset deflation counter
-      KDFL = 0
+      KDEFL = 0
 *
 *     return to start of the main loop with new value of I.
 *