Fix bug

sh-zheng · Mar 14, 2024 · 6b076a4 · 6b076a4
1 parent f956d92
commit 6b076a4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/SRC/dkteqr.f b/SRC/dkteqr.f
@@ -161,7 +161,7 @@ SUBROUTINE DKTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO )
       INTEGER            I, ICOMPZ, II, ISCALE, J, JTOT, K, L, L1, LEND,
      $                   LENDM1, LENDP1, LENDSV, LM3, LSV, M, MM, MM1,
      $                   NM1, NMAXIT
-      DOUBLE PRECISION   ANORM, B, EPS, EPS2, P, R, VA, VB, VC, VD, E3
+      DOUBLE PRECISION   ANORM, B, EPS, EPS2, P, R, VA, VB, VC, VD, E3,
      $                   S, SAFMAX, SAFMIN, SSFMAX, SSFMIN, TST, TEMP
 *     ..
 *     .. External Functions ..

diff --git a/SRC/skteqr.f b/SRC/skteqr.f
@@ -161,7 +161,7 @@ SUBROUTINE SKTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO )
       INTEGER            I, ICOMPZ, II, ISCALE, J, JTOT, K, L, L1, LEND,
      $                   LENDM1, LENDP1, LENDSV, LM3, LSV, M, MM, MM1,
      $                   NM1, NMAXIT
-      REAL               ANORM, B, EPS, EPS2, P, R, VA, VB, VC, VD, E3
+      REAL               ANORM, B, EPS, EPS2, P, R, VA, VB, VC, VD, E3,
      $                   S, SAFMAX, SAFMIN, SSFMAX, SSFMIN, TST, TEMP
 *     ..
 *     .. External Functions ..