Skip to content

Commit 7165ff7

Browse files
jipjip
committed
fix typo in TESTING/EIG/?chkst2stg.f comment
1 parent 78db64a commit 7165ff7

4 files changed

Lines changed: 0 additions & 22 deletions

File tree

‎TESTING/EIG/cchkst2stg.f‎

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1072,7 +1072,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10721072
END IF
10731073
END IF
10741074
*
1075-
*
10761075
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
10771076
* D1 computed using the standard 1-stage reduction as reference
10781077
*
@@ -1735,7 +1734,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
17351734
END IF
17361735
END IF
17371736
*
1738-
*
17391737
* Do test 28
17401738
*
17411739
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1792,7 +1790,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
17921790
*
17931791
* Do Tests 29 and 30
17941792
*
1795-
*
17961793
* Call CSTEMR to compute D2, do tests.
17971794
*
17981795
* Compute D2
@@ -1832,7 +1829,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
18321829
RESULT( 31 ) = TEMP2 / MAX( UNFL,
18331830
$ ULP*MAX( TEMP1, TEMP2 ) )
18341831
*
1835-
*
18361832
* Call CSTEMR(V,V) to compute D1 and Z, do tests.
18371833
*
18381834
* Compute D1 and Z
@@ -1934,7 +1930,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
19341930
RESULT( 34 ) = ZERO
19351931
END IF
19361932
*
1937-
*
19381933
* Call CSTEMR(V,A) to compute D1 and Z, do tests.
19391934
*
19401935
* Compute D1 and Z
@@ -2010,7 +2005,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
20102005
*
20112006
* End of Loop -- Check for RESULT(j) > THRESH
20122007
*
2013-
*
20142008
* Print out tests which fail.
20152009
*
20162010
DO 290 JR = 1, NTEST

‎TESTING/EIG/dchkst2stg.f‎

Lines changed: 0 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1055,7 +1055,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10551055
END IF
10561056
END IF
10571057
*
1058-
*
10591058
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
10601059
* D1 computed using the standard 1-stage reduction as reference
10611060
*
@@ -1715,7 +1714,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
17151714
END IF
17161715
END IF
17171716
*
1718-
*
17191717
* Do test 28
17201718
*
17211719
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1814,7 +1812,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
18141812
RESULT( 31 ) = TEMP2 / MAX( UNFL,
18151813
$ ULP*MAX( TEMP1, TEMP2 ) )
18161814
*
1817-
*
18181815
* Call DSTEMR(V,V) to compute D1 and Z, do tests.
18191816
*
18201817
* Compute D1 and Z
@@ -1916,7 +1913,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
19161913
RESULT( 34 ) = ZERO
19171914
END IF
19181915
*
1919-
*
19201916
* Call DSTEMR(V,A) to compute D1 and Z, do tests.
19211917
*
19221918
* Compute D1 and Z
@@ -1992,7 +1988,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
19921988
*
19931989
* End of Loop -- Check for RESULT(j) > THRESH
19941990
*
1995-
*
19961991
* Print out tests which fail.
19971992
*
19981993
DO 290 JR = 1, NTEST

‎TESTING/EIG/schkst2stg.f‎

Lines changed: 0 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1055,7 +1055,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10551055
END IF
10561056
END IF
10571057
*
1058-
*
10591058
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
10601059
* D1 computed using the standard 1-stage reduction as reference
10611060
*
@@ -1715,7 +1714,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
17151714
END IF
17161715
END IF
17171716
*
1718-
*
17191717
* Do test 28
17201718
*
17211719
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1814,7 +1812,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
18141812
RESULT( 31 ) = TEMP2 / MAX( UNFL,
18151813
$ ULP*MAX( TEMP1, TEMP2 ) )
18161814
*
1817-
*
18181815
* Call SSTEMR(V,V) to compute D1 and Z, do tests.
18191816
*
18201817
* Compute D1 and Z
@@ -1916,7 +1913,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
19161913
RESULT( 34 ) = ZERO
19171914
END IF
19181915
*
1919-
*
19201916
* Call SSTEMR(V,A) to compute D1 and Z, do tests.
19211917
*
19221918
* Compute D1 and Z
@@ -1992,7 +1988,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
19921988
*
19931989
* End of Loop -- Check for RESULT(j) > THRESH
19941990
*
1995-
*
19961991
* Print out tests which fail.
19971992
*
19981993
DO 290 JR = 1, NTEST

‎TESTING/EIG/zchkst2stg.f‎

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1072,7 +1072,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10721072
END IF
10731073
END IF
10741074
*
1075-
*
10761075
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
10771076
* D1 computed using the standard 1-stage reduction as reference
10781077
*
@@ -1735,7 +1734,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
17351734
END IF
17361735
END IF
17371736
*
1738-
*
17391737
* Do test 28
17401738
*
17411739
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1792,7 +1790,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
17921790
*
17931791
* Do Tests 29 and 30
17941792
*
1795-
*
17961793
* Call ZSTEMR to compute D2, do tests.
17971794
*
17981795
* Compute D2
@@ -1832,7 +1829,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
18321829
RESULT( 31 ) = TEMP2 / MAX( UNFL,
18331830
$ ULP*MAX( TEMP1, TEMP2 ) )
18341831
*
1835-
*
18361832
* Call ZSTEMR(V,V) to compute D1 and Z, do tests.
18371833
*
18381834
* Compute D1 and Z
@@ -1934,7 +1930,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
19341930
RESULT( 34 ) = ZERO
19351931
END IF
19361932
*
1937-
*
19381933
* Call ZSTEMR(V,A) to compute D1 and Z, do tests.
19391934
*
19401935
* Compute D1 and Z
@@ -2010,7 +2005,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
20102005
*
20112006
* End of Loop -- Check for RESULT(j) > THRESH
20122007
*
2013-
*
20142008
* Print out tests which fail.
20152009
*
20162010
DO 290 JR = 1, NTEST

0 commit comments

Comments
 (0)