Fix fortran text overflow in *kteqr

sh-zheng · sh-zheng · commit 3275c3216253 · 2024-09-04T20:01:40.000+08:00
diff --git a/SRC/dkteqr.f b/SRC/dkteqr.f
@@ -757,10 +757,10 @@ SUBROUTINE DKTEQR( COMPZ, N, E, Z, LDZ, WORK, INFO )
 *
   140 CONTINUE
       IF( ISCALE.EQ.1 ) THEN
-         CALL DLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E( LSV ),
+         CALL DLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E(LSV),
      $                N, INFO )
       ELSE IF( ISCALE.EQ.2 ) THEN
-         CALL DLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E( LSV ),
+         CALL DLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E(LSV),
      $                N, INFO )
       END IF
 *
diff --git a/SRC/skteqr.f b/SRC/skteqr.f
@@ -757,10 +757,10 @@ SUBROUTINE SKTEQR( COMPZ, N, E, Z, LDZ, WORK, INFO )
 *
   140 CONTINUE
       IF( ISCALE.EQ.1 ) THEN
-         CALL SLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E( LSV ),
+         CALL SLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E(LSV),
      $                N, INFO )
       ELSE IF( ISCALE.EQ.2 ) THEN
-         CALL SLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E( LSV ),
+         CALL SLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E(LSV),
      $                N, INFO )
       END IF
 *

Original file line number	Diff line number	Diff line change
`@@ -757,10 +757,10 @@ SUBROUTINE DKTEQR( COMPZ, N, E, Z, LDZ, WORK, INFO )`
`757`	`757`	`*`
`758`	`758`	`140 CONTINUE`
`759`	`759`	`IF( ISCALE.EQ.1 ) THEN`
`760`		`- CALL DLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E( LSV ),`
	`760`	`+ CALL DLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E(LSV),`
`761`	`761`	`$ N, INFO )`
`762`	`762`	`ELSE IF( ISCALE.EQ.2 ) THEN`
`763`		`- CALL DLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E( LSV ),`
	`763`	`+ CALL DLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E(LSV),`
`764`	`764`	`$ N, INFO )`
`765`	`765`	`END IF`
`766`	`766`	`*`
Original file line number	Diff line number	Diff line change
`@@ -757,10 +757,10 @@ SUBROUTINE SKTEQR( COMPZ, N, E, Z, LDZ, WORK, INFO )`
`757`	`757`	`*`
`758`	`758`	`140 CONTINUE`
`759`	`759`	`IF( ISCALE.EQ.1 ) THEN`
`760`		`- CALL SLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E( LSV ),`
	`760`	`+ CALL SLASCL( 'G', 0, 0, SSFMAX, ANORM, LENDSV-LSV, 1, E(LSV),`
`761`	`761`	`$ N, INFO )`
`762`	`762`	`ELSE IF( ISCALE.EQ.2 ) THEN`
`763`		`- CALL SLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E( LSV ),`
	`763`	`+ CALL SLASCL( 'G', 0, 0, SSFMIN, ANORM, LENDSV-LSV, 1, E(LSV),`
`764`	`764`	`$ N, INFO )`
`765`	`765`	`END IF`
`766`	`766`	`*`