Skip to content

Commit 8b27cef

Browse files
weslleyspereiraweslleyspereira
committed
Apply suggestions from @angsch 
1 parent ae54ebc commit 8b27cef

File tree

4 files changed

+28
-28
lines changed

4 files changed

+28
-28
lines changed

‎SRC/cbdsqr.f‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -259,7 +259,7 @@ SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
259259
$ NM12, NM13, OLDLL, OLDM
260260
REAL ABSE, ABSS, COSL, COSR, CS, EPS, F, G, H, MU,
261261
$ OLDCS, OLDSN, R, SHIFT, SIGMN, SIGMX, SINL,
262-
$ SINR, SLL, SMAX, SMIN, SMINL, SMINOA,
262+
$ SINR, SLL, SMAX, SMIN, SMINOA,
263263
$ SN, THRESH, TOL, TOLMUL, UNFL
264264
* ..
265265
* .. External Functions ..
@@ -372,7 +372,7 @@ SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
372372
DO 30 I = 1, N - 1
373373
SMAX = MAX( SMAX, ABS( E( I ) ) )
374374
30 CONTINUE
375-
SMINL = ZERO
375+
SMIN = ZERO
376376
IF( TOL.GE.ZERO ) THEN
377377
*
378378
* Relative accuracy desired
@@ -515,14 +515,14 @@ SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
515515
* apply convergence criterion forward
516516
*
517517
MU = ABS( D( LL ) )
518-
SMINL = MU
518+
SMIN = MU
519519
DO 100 LLL = LL, M - 1
520520
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
521521
E( LLL ) = ZERO
522522
GO TO 60
523523
END IF
524524
MU = ABS( D( LLL+1 ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
525-
SMINL = MIN( SMINL, MU )
525+
SMIN = MIN( SMIN, MU )
526526
100 CONTINUE
527527
END IF
528528
*
@@ -543,14 +543,14 @@ SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
543543
* apply convergence criterion backward
544544
*
545545
MU = ABS( D( M ) )
546-
SMINL = MU
546+
SMIN = MU
547547
DO 110 LLL = M - 1, LL, -1
548548
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
549549
E( LLL ) = ZERO
550550
GO TO 60
551551
END IF
552552
MU = ABS( D( LLL ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
553-
SMINL = MIN( SMINL, MU )
553+
SMIN = MIN( SMIN, MU )
554554
110 CONTINUE
555555
END IF
556556
END IF
@@ -560,7 +560,7 @@ SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
560560
* Compute shift. First, test if shifting would ruin relative
561561
* accuracy, and if so set the shift to zero.
562562
*
563-
IF( TOL.GE.ZERO .AND. N*TOL*( SMINL / SMAX ).LE.
563+
IF( TOL.GE.ZERO .AND. N*TOL*( SMIN / SMAX ).LE.
564564
$ MAX( EPS, HNDRTH*TOL ) ) THEN
565565
*
566566
* Use a zero shift to avoid loss of relative accuracy

‎SRC/dbdsqr.f‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -278,7 +278,7 @@ SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
278278
$ MAXITDIVN, NM1, NM12, NM13, OLDLL, OLDM
279279
DOUBLE PRECISION ABSE, ABSS, COSL, COSR, CS, EPS, F, G, H, MU,
280280
$ OLDCS, OLDSN, R, SHIFT, SIGMN, SIGMX, SINL,
281-
$ SINR, SLL, SMAX, SMIN, SMINL, SMINOA,
281+
$ SINR, SLL, SMAX, SMIN, SMINOA,
282282
$ SN, THRESH, TOL, TOLMUL, UNFL
283283
* ..
284284
* .. External Functions ..
@@ -391,7 +391,7 @@ SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
391391
DO 30 I = 1, N - 1
392392
SMAX = MAX( SMAX, ABS( E( I ) ) )
393393
30 CONTINUE
394-
SMINL = ZERO
394+
SMIN = ZERO
395395
IF( TOL.GE.ZERO ) THEN
396396
*
397397
* Relative accuracy desired
@@ -540,14 +540,14 @@ SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
540540
* apply convergence criterion forward
541541
*
542542
MU = ABS( D( LL ) )
543-
SMINL = MU
543+
SMIN = MU
544544
DO 100 LLL = LL, M - 1
545545
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
546546
E( LLL ) = ZERO
547547
GO TO 60
548548
END IF
549549
MU = ABS( D( LLL+1 ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
550-
SMINL = MIN( SMINL, MU )
550+
SMIN = MIN( SMIN, MU )
551551
100 CONTINUE
552552
END IF
553553
*
@@ -568,14 +568,14 @@ SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
568568
* apply convergence criterion backward
569569
*
570570
MU = ABS( D( M ) )
571-
SMINL = MU
571+
SMIN = MU
572572
DO 110 LLL = M - 1, LL, -1
573573
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
574574
E( LLL ) = ZERO
575575
GO TO 60
576576
END IF
577577
MU = ABS( D( LLL ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
578-
SMINL = MIN( SMINL, MU )
578+
SMIN = MIN( SMIN, MU )
579579
110 CONTINUE
580580
END IF
581581
END IF
@@ -585,7 +585,7 @@ SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
585585
* Compute shift. First, test if shifting would ruin relative
586586
* accuracy, and if so set the shift to zero.
587587
*
588-
IF( TOL.GE.ZERO .AND. N*TOL*( SMINL / SMAX ).LE.
588+
IF( TOL.GE.ZERO .AND. N*TOL*( SMIN / SMAX ).LE.
589589
$ MAX( EPS, HNDRTH*TOL ) ) THEN
590590
*
591591
* Use a zero shift to avoid loss of relative accuracy

‎SRC/sbdsqr.f‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -277,7 +277,7 @@ SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
277277
$ MAXITDIVN, NM1, NM12, NM13, OLDLL, OLDM
278278
REAL ABSE, ABSS, COSL, COSR, CS, EPS, F, G, H, MU,
279279
$ OLDCS, OLDSN, R, SHIFT, SIGMN, SIGMX, SINL,
280-
$ SINR, SLL, SMAX, SMIN, SMINL, SMINOA,
280+
$ SINR, SLL, SMAX, SMIN, SMINOA,
281281
$ SN, THRESH, TOL, TOLMUL, UNFL
282282
* ..
283283
* .. External Functions ..
@@ -390,7 +390,7 @@ SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
390390
DO 30 I = 1, N - 1
391391
SMAX = MAX( SMAX, ABS( E( I ) ) )
392392
30 CONTINUE
393-
SMINL = ZERO
393+
SMIN = ZERO
394394
IF( TOL.GE.ZERO ) THEN
395395
*
396396
* Relative accuracy desired
@@ -539,14 +539,14 @@ SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
539539
* apply convergence criterion forward
540540
*
541541
MU = ABS( D( LL ) )
542-
SMINL = MU
542+
SMIN = MU
543543
DO 100 LLL = LL, M - 1
544544
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
545545
E( LLL ) = ZERO
546546
GO TO 60
547547
END IF
548548
MU = ABS( D( LLL+1 ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
549-
SMINL = MIN( SMINL, MU )
549+
SMIN = MIN( SMIN, MU )
550550
100 CONTINUE
551551
END IF
552552
*
@@ -567,14 +567,14 @@ SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
567567
* apply convergence criterion backward
568568
*
569569
MU = ABS( D( M ) )
570-
SMINL = MU
570+
SMIN = MU
571571
DO 110 LLL = M - 1, LL, -1
572572
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
573573
E( LLL ) = ZERO
574574
GO TO 60
575575
END IF
576576
MU = ABS( D( LLL ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
577-
SMINL = MIN( SMINL, MU )
577+
SMIN = MIN( SMIN, MU )
578578
110 CONTINUE
579579
END IF
580580
END IF
@@ -584,7 +584,7 @@ SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
584584
* Compute shift. First, test if shifting would ruin relative
585585
* accuracy, and if so set the shift to zero.
586586
*
587-
IF( TOL.GE.ZERO .AND. N*TOL*( SMINL / SMAX ).LE.
587+
IF( TOL.GE.ZERO .AND. N*TOL*( SMIN / SMAX ).LE.
588588
$ MAX( EPS, HNDRTH*TOL ) ) THEN
589589
*
590590
* Use a zero shift to avoid loss of relative accuracy

‎SRC/zbdsqr.f‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -259,7 +259,7 @@ SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
259259
$ NM12, NM13, OLDLL, OLDM
260260
DOUBLE PRECISION ABSE, ABSS, COSL, COSR, CS, EPS, F, G, H, MU,
261261
$ OLDCS, OLDSN, R, SHIFT, SIGMN, SIGMX, SINL,
262-
$ SINR, SLL, SMAX, SMIN, SMINL, SMINOA,
262+
$ SINR, SLL, SMAX, SMIN, SMINOA,
263263
$ SN, THRESH, TOL, TOLMUL, UNFL
264264
* ..
265265
* .. External Functions ..
@@ -372,7 +372,7 @@ SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
372372
DO 30 I = 1, N - 1
373373
SMAX = MAX( SMAX, ABS( E( I ) ) )
374374
30 CONTINUE
375-
SMINL = ZERO
375+
SMIN = ZERO
376376
IF( TOL.GE.ZERO ) THEN
377377
*
378378
* Relative accuracy desired
@@ -515,14 +515,14 @@ SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
515515
* apply convergence criterion forward
516516
*
517517
MU = ABS( D( LL ) )
518-
SMINL = MU
518+
SMIN = MU
519519
DO 100 LLL = LL, M - 1
520520
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
521521
E( LLL ) = ZERO
522522
GO TO 60
523523
END IF
524524
MU = ABS( D( LLL+1 ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
525-
SMINL = MIN( SMINL, MU )
525+
SMIN = MIN( SMIN, MU )
526526
100 CONTINUE
527527
END IF
528528
*
@@ -543,14 +543,14 @@ SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
543543
* apply convergence criterion backward
544544
*
545545
MU = ABS( D( M ) )
546-
SMINL = MU
546+
SMIN = MU
547547
DO 110 LLL = M - 1, LL, -1
548548
IF( ABS( E( LLL ) ).LE.TOL*MU ) THEN
549549
E( LLL ) = ZERO
550550
GO TO 60
551551
END IF
552552
MU = ABS( D( LLL ) )*( MU / ( MU+ABS( E( LLL ) ) ) )
553-
SMINL = MIN( SMINL, MU )
553+
SMIN = MIN( SMIN, MU )
554554
110 CONTINUE
555555
END IF
556556
END IF
@@ -560,7 +560,7 @@ SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
560560
* Compute shift. First, test if shifting would ruin relative
561561
* accuracy, and if so set the shift to zero.
562562
*
563-
IF( TOL.GE.ZERO .AND. N*TOL*( SMINL / SMAX ).LE.
563+
IF( TOL.GE.ZERO .AND. N*TOL*( SMIN / SMAX ).LE.
564564
$ MAX( EPS, HNDRTH*TOL ) ) THEN
565565
*
566566
* Use a zero shift to avoid loss of relative accuracy

0 commit comments

Comments
 (0)