Skip to content

Commit 542f4f8

Browse files
angschangsch
committed
Remove LABAD from testing routines
1 parent add62ef commit 542f4f8

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

144 files changed

+207
-447
lines changed

‎TESTING/EIG/cchkbd.f

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -465,8 +465,8 @@ SUBROUTINE CCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS,
465465
* .. External Subroutines ..
466466
EXTERNAL ALASUM, CBDSQR, CBDT01, CBDT02, CBDT03,
467467
$ CGEBRD, CGEMM, CLACPY, CLASET, CLATMR,
468-
$ CLATMS, CUNGBR, CUNT01, SCOPY, SLABAD,
469-
$ SLAHD2, SSVDCH, XERBLA
468+
$ CLATMS, CUNGBR, CUNT01, SCOPY, SLAHD2,
469+
$ SSVDCH, XERBLA
470470
* ..
471471
* .. Intrinsic Functions ..
472472
INTRINSIC ABS, EXP, INT, LOG, MAX, MIN, SQRT
@@ -548,7 +548,6 @@ SUBROUTINE CCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS,
548548
NTEST = 0
549549
UNFL = SLAMCH( 'Safe minimum' )
550550
OVFL = SLAMCH( 'Overflow' )
551-
CALL SLABAD( UNFL, OVFL )
552551
ULP = SLAMCH( 'Precision' )
553552
ULPINV = ONE / ULP
554553
LOG2UI = INT( LOG( ULPINV ) / LOG( TWO ) )

‎TESTING/EIG/cchkgg.f

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -560,8 +560,8 @@ SUBROUTINE CCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
560560
* ..
561561
* .. External Subroutines ..
562562
EXTERNAL CGEQR2, CGET51, CGET52, CGGHRD, CHGEQZ, CLACPY,
563-
$ CLARFG, CLASET, CLATM4, CTGEVC, CUNM2R, SLABAD,
564-
$ SLASUM, XERBLA
563+
$ CLARFG, CLASET, CLATM4, CTGEVC, CUNM2R, SLASUM,
564+
$ XERBLA
565565
* ..
566566
* .. Intrinsic Functions ..
567567
INTRINSIC ABS, CONJG, MAX, MIN, REAL, SIGN
@@ -639,7 +639,6 @@ SUBROUTINE CCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
639639
ULP = SLAMCH( 'Epsilon' )*SLAMCH( 'Base' )
640640
SAFMIN = SAFMIN / ULP
641641
SAFMAX = ONE / SAFMIN
642-
CALL SLABAD( SAFMIN, SAFMAX )
643642
ULPINV = ONE / ULP
644643
*
645644
* The values RMAGN(2:3) depend on N, see below.

‎TESTING/EIG/cchkhs.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -473,7 +473,7 @@ SUBROUTINE CCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
473473
EXTERNAL CCOPY, CGEHRD, CGEMM, CGET10, CGET22, CHSEIN,
474474
$ CHSEQR, CHST01, CLACPY, CLASET, CLATME, CLATMR,
475475
$ CLATMS, CTREVC, CTREVC3, CUNGHR, CUNMHR,
476-
$ SLABAD, SLAFTS, SLASUM, XERBLA
476+
$ SLAFTS, SLASUM, XERBLA
477477
* ..
478478
* .. Intrinsic Functions ..
479479
INTRINSIC ABS, MAX, MIN, REAL, SQRT
@@ -533,7 +533,6 @@ SUBROUTINE CCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
533533
*
534534
UNFL = SLAMCH( 'Safe minimum' )
535535
OVFL = SLAMCH( 'Overflow' )
536-
CALL SLABAD( UNFL, OVFL )
537536
ULP = SLAMCH( 'Epsilon' )*SLAMCH( 'Base' )
538537
ULPINV = ONE / ULP
539538
RTUNFL = SQRT( UNFL )

‎TESTING/EIG/cchkst.f

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -665,8 +665,7 @@ SUBROUTINE CCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
665665
EXTERNAL CCOPY, CHET21, CHETRD, CHPT21, CHPTRD, CLACPY,
666666
$ CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC, CSTEMR,
667667
$ CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR, CUPGTR,
668-
$ SCOPY, SLABAD, SLASUM, SSTEBZ, SSTECH, SSTERF,
669-
$ XERBLA
668+
$ SCOPY, SLASUM, SSTEBZ, SSTECH, SSTERF, XERBLA
670669
* ..
671670
* .. Intrinsic Functions ..
672671
INTRINSIC ABS, CONJG, INT, LOG, MAX, MIN, REAL, SQRT
@@ -733,7 +732,6 @@ SUBROUTINE CCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
733732
*
734733
UNFL = SLAMCH( 'Safe minimum' )
735734
OVFL = ONE / UNFL
736-
CALL SLABAD( UNFL, OVFL )
737735
ULP = SLAMCH( 'Epsilon' )*SLAMCH( 'Base' )
738736
ULPINV = ONE / ULP
739737
LOG2UI = INT( LOG( ULPINV ) / LOG( TWO ) )

‎TESTING/EIG/cchkst2stg.f

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -683,10 +683,10 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
683683
EXTERNAL ILAENV, SLAMCH, SLARND, SSXT1
684684
* ..
685685
* .. External Subroutines ..
686-
EXTERNAL SCOPY, SLABAD, SLASUM, SSTEBZ, SSTECH, SSTERF,
687-
$ XERBLA, CCOPY, CHET21, CHETRD, CHPT21, CHPTRD,
688-
$ CLACPY, CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC,
689-
$ CSTEMR, CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR,
686+
EXTERNAL SCOPY, SLASUM, SSTEBZ, SSTECH, SSTERF, XERBLA,
687+
$ CCOPY, CHET21, CHETRD, CHPT21, CHPTRD, CLACPY,
688+
$ CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC, CSTEMR,
689+
$ CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR,
690690
$ CUPGTR, CHETRD_2STAGE, SLASET
691691
* ..
692692
* .. Intrinsic Functions ..
@@ -754,7 +754,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
754754
*
755755
UNFL = SLAMCH( 'Safe minimum' )
756756
OVFL = ONE / UNFL
757-
CALL SLABAD( UNFL, OVFL )
758757
ULP = SLAMCH( 'Epsilon' )*SLAMCH( 'Base' )
759758
ULPINV = ONE / ULP
760759
LOG2UI = INT( LOG( ULPINV ) / LOG( TWO ) )

‎TESTING/EIG/cdrges.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -435,7 +435,7 @@ SUBROUTINE CDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
435435
* ..
436436
* .. External Subroutines ..
437437
EXTERNAL ALASVM, CGET51, CGET54, CGGES, CLACPY, CLARFG,
438-
$ CLASET, CLATM4, CUNM2R, SLABAD, XERBLA
438+
$ CLASET, CLATM4, CUNM2R, XERBLA
439439
* ..
440440
* .. Intrinsic Functions ..
441441
INTRINSIC ABS, AIMAG, CONJG, MAX, MIN, REAL, SIGN
@@ -533,7 +533,6 @@ SUBROUTINE CDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
533533
SAFMIN = SLAMCH( 'Safe minimum' )
534534
SAFMIN = SAFMIN / ULP
535535
SAFMAX = ONE / SAFMIN
536-
CALL SLABAD( SAFMIN, SAFMAX )
537536
ULPINV = ONE / ULP
538537
*
539538
* The values RMAGN(2:3) depend on N, see below.

‎TESTING/EIG/cdrges3.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -436,7 +436,7 @@ SUBROUTINE CDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
436436
* ..
437437
* .. External Subroutines ..
438438
EXTERNAL ALASVM, CGET51, CGET54, CGGES3, CLACPY, CLARFG,
439-
$ CLASET, CLATM4, CUNM2R, SLABAD, XERBLA
439+
$ CLASET, CLATM4, CUNM2R, XERBLA
440440
* ..
441441
* .. Intrinsic Functions ..
442442
INTRINSIC ABS, AIMAG, CONJG, MAX, MIN, REAL, SIGN
@@ -534,7 +534,6 @@ SUBROUTINE CDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
534534
SAFMIN = SLAMCH( 'Safe minimum' )
535535
SAFMIN = SAFMIN / ULP
536536
SAFMAX = ONE / SAFMIN
537-
CALL SLABAD( SAFMIN, SAFMAX )
538537
ULPINV = ONE / ULP
539538
*
540539
* The values RMAGN(2:3) depend on N, see below.

‎TESTING/EIG/cdrgev.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -452,7 +452,7 @@ SUBROUTINE CDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
452452
* ..
453453
* .. External Subroutines ..
454454
EXTERNAL ALASVM, CGET52, CGGEV, CLACPY, CLARFG, CLASET,
455-
$ CLATM4, CUNM2R, SLABAD, XERBLA
455+
$ CLATM4, CUNM2R, XERBLA
456456
* ..
457457
* .. Intrinsic Functions ..
458458
INTRINSIC ABS, CONJG, MAX, MIN, REAL, SIGN
@@ -546,7 +546,6 @@ SUBROUTINE CDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
546546
SAFMIN = SLAMCH( 'Safe minimum' )
547547
SAFMIN = SAFMIN / ULP
548548
SAFMAX = ONE / SAFMIN
549-
CALL SLABAD( SAFMIN, SAFMAX )
550549
ULPINV = ONE / ULP
551550
*
552551
* The values RMAGN(2:3) depend on N, see below.

‎TESTING/EIG/cdrgev3.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -452,7 +452,7 @@ SUBROUTINE CDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
452452
* ..
453453
* .. External Subroutines ..
454454
EXTERNAL ALASVM, CGET52, CGGEV3, CLACPY, CLARFG, CLASET,
455-
$ CLATM4, CUNM2R, SLABAD, XERBLA
455+
$ CLATM4, CUNM2R, XERBLA
456456
* ..
457457
* .. Intrinsic Functions ..
458458
INTRINSIC ABS, CONJG, MAX, MIN, REAL, SIGN
@@ -546,7 +546,6 @@ SUBROUTINE CDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
546546
SAFMIN = SLAMCH( 'Safe minimum' )
547547
SAFMIN = SAFMIN / ULP
548548
SAFMAX = ONE / SAFMIN
549-
CALL SLABAD( SAFMIN, SAFMAX )
550549
ULPINV = ONE / ULP
551550
*
552551
* The values RMAGN(2:3) depend on N, see below.

‎TESTING/EIG/cdrgsx.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -395,7 +395,7 @@ SUBROUTINE CDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B,
395395
* ..
396396
* .. External Subroutines ..
397397
EXTERNAL ALASVM, CGESVD, CGET51, CGGESX, CLACPY, CLAKF2,
398-
$ CLASET, CLATM5, SLABAD, XERBLA
398+
$ CLASET, CLATM5, XERBLA
399399
* ..
400400
* .. Scalars in Common ..
401401
LOGICAL FS
@@ -478,7 +478,6 @@ SUBROUTINE CDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B,
478478
ULPINV = ONE / ULP
479479
SMLNUM = SLAMCH( 'S' ) / ULP
480480
BIGNUM = ONE / SMLNUM
481-
CALL SLABAD( SMLNUM, BIGNUM )
482481
THRSH2 = TEN*THRESH
483482
NTESTT = 0
484483
NERRS = 0

0 commit comments

Comments
 (0)