Skip to content

Commit ffb4f04

Browse files
martin-frbgmartin-frbg
committed
Update the LAPACK testsuite to match 3.10.1
1 parent 510c722 commit ffb4f04

1,214 files changed

Lines changed: 3605 additions & 5706 deletions

File tree

Some content is hidden

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

‎lapack-netlib/TESTING/EIG/CMakeLists.txt‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -36,7 +36,7 @@ set(SEIGTST schkee.F
3636
serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f
3737
sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f
3838
sget32.f sget33.f sget34.f sget35.f sget36.f
39-
sget37.f sget38.f sget39.f sget51.f sget52.f sget53.f
39+
sget37.f sget38.f sget39.f sget40.f sget51.f sget52.f sget53.f
4040
sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts3.f
4141
shst01.f slarfy.f slarhs.f slatm4.f slctes.f slctsx.f slsets.f sort01.f
4242
sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f
@@ -73,7 +73,7 @@ set(DEIGTST dchkee.F
7373
derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f
7474
dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f
7575
dget32.f dget33.f dget34.f dget35.f dget36.f
76-
dget37.f dget38.f dget39.f dget51.f dget52.f dget53.f
76+
dget37.f dget38.f dget39.f dget40.f dget51.f dget52.f dget53.f
7777
dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts3.f
7878
dhst01.f dlarfy.f dlarhs.f dlatm4.f dlctes.f dlctsx.f dlsets.f dort01.f
7979
dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f
@@ -98,7 +98,7 @@ set(ZEIGTST zchkee.F
9898

9999
macro(add_eig_executable name)
100100
add_executable(${name} ${ARGN})
101-
target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE})
101+
target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
102102
endmacro()
103103

104104
if(BUILD_SINGLE)

‎lapack-netlib/TESTING/EIG/Makefile‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -58,7 +58,7 @@ SEIGTST = schkee.o \
5858
serrbd.o serrec.o serred.o serrgg.o serrhs.o serrst.o \
5959
sget02.o sget10.o sget22.o sget23.o sget24.o sget31.o \
6060
sget32.o sget33.o sget34.o sget35.o sget36.o \
61-
sget37.o sget38.o sget39.o sget51.o sget52.o sget53.o \
61+
sget37.o sget38.o sget39.o sget40.o sget51.o sget52.o sget53.o \
6262
sget54.o sglmts.o sgqrts.o sgrqts.o sgsvts3.o \
6363
shst01.o slarfy.o slarhs.o slatm4.o slctes.o slctsx.o slsets.o sort01.o \
6464
sort03.o ssbt21.o ssgt01.o sslect.o sspt21.o sstt21.o \
@@ -95,7 +95,7 @@ DEIGTST = dchkee.o \
9595
derrbd.o derrec.o derred.o derrgg.o derrhs.o derrst.o \
9696
dget02.o dget10.o dget22.o dget23.o dget24.o dget31.o \
9797
dget32.o dget33.o dget34.o dget35.o dget36.o \
98-
dget37.o dget38.o dget39.o dget51.o dget52.o dget53.o \
98+
dget37.o dget38.o dget39.o dget40.o dget51.o dget52.o dget53.o \
9999
dget54.o dglmts.o dgqrts.o dgrqts.o dgsvts3.o \
100100
dhst01.o dlarfy.o dlarhs.o dlatm4.o dlctes.o dlctsx.o dlsets.o dort01.o \
101101
dort03.o dsbt21.o dsgt01.o dslect.o dspt21.o dstt21.o \
@@ -128,16 +128,16 @@ double: xeigtstd
128128
complex16: xeigtstz
129129

130130
xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
131-
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
131+
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
132132

133133
xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
134-
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
134+
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
135135

136136
xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
137-
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
137+
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
138138

139139
xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
140-
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
140+
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
141141

142142
$(AEIGTST): $(FRC)
143143
$(SCIGTST): $(FRC)

‎lapack-netlib/TESTING/EIG/alahdg.f‎

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -55,17 +55,14 @@
5555
*> \author Univ. of Colorado Denver
5656
*> \author NAG Ltd.
5757
*
58-
*> \date December 2016
59-
*
6058
*> \ingroup aux_eig
6159
*
6260
* =====================================================================
6361
SUBROUTINE ALAHDG( IOUNIT, PATH )
6462
*
65-
* -- LAPACK test routine (version 3.7.0) --
63+
* -- LAPACK test routine --
6664
* -- LAPACK is a software package provided by Univ. of Tennessee, --
6765
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
68-
* December 2016
6966
*
7067
* .. Scalar Arguments ..
7168
CHARACTER*3 PATH

‎lapack-netlib/TESTING/EIG/alareq.f‎

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -83,17 +83,14 @@
8383
*> \author Univ. of Colorado Denver
8484
*> \author NAG Ltd.
8585
*
86-
*> \date December 2016
87-
*
8886
*> \ingroup aux_eig
8987
*
9088
* =====================================================================
9189
SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
9290
*
93-
* -- LAPACK test routine (version 3.7.0) --
91+
* -- LAPACK test routine --
9492
* -- LAPACK is a software package provided by Univ. of Tennessee, --
9593
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
96-
* December 2016
9794
*
9895
* .. Scalar Arguments ..
9996
CHARACTER*3 PATH

‎lapack-netlib/TESTING/EIG/alarqg.f‎

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -83,17 +83,14 @@
8383
*> \author Univ. of Colorado Denver
8484
*> \author NAG Ltd.
8585
*
86-
*> \date December 2016
87-
*
8886
*> \ingroup aux_eig
8987
*
9088
* =====================================================================
9189
SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
9290
*
93-
* -- LAPACK test routine (version 3.7.0) --
91+
* -- LAPACK test routine --
9492
* -- LAPACK is a software package provided by Univ. of Tennessee, --
9593
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
96-
* December 2016
9794
*
9895
* .. Scalar Arguments ..
9996
CHARACTER*3 PATH

‎lapack-netlib/TESTING/EIG/alasmg.f‎

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -66,17 +66,14 @@
6666
*> \author Univ. of Colorado Denver
6767
*> \author NAG Ltd.
6868
*
69-
*> \date December 2016
70-
*
7169
*> \ingroup aux_eig
7270
*
7371
* =====================================================================
7472
SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
7573
*
76-
* -- LAPACK test routine (version 3.7.0) --
74+
* -- LAPACK test routine --
7775
* -- LAPACK is a software package provided by Univ. of Tennessee, --
7876
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
79-
* December 2016
8077
*
8178
* .. Scalar Arguments ..
8279
CHARACTER*3 TYPE

‎lapack-netlib/TESTING/EIG/alasum.f‎

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -66,17 +66,14 @@
6666
*> \author Univ. of Colorado Denver
6767
*> \author NAG Ltd.
6868
*
69-
*> \date December 2016
70-
*
7169
*> \ingroup aux_eig
7270
*
7371
* =====================================================================
7472
SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS )
7573
*
76-
* -- LAPACK test routine (version 3.7.0) --
74+
* -- LAPACK test routine --
7775
* -- LAPACK is a software package provided by Univ. of Tennessee, --
7876
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
79-
* December 2016
8077
*
8178
* .. Scalar Arguments ..
8279
CHARACTER*3 TYPE

‎lapack-netlib/TESTING/EIG/alasvm.f‎

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -66,17 +66,14 @@
6666
*> \author Univ. of Colorado Denver
6767
*> \author NAG Ltd.
6868
*
69-
*> \date December 2016
70-
*
7169
*> \ingroup aux_eig
7270
*
7371
* =====================================================================
7472
SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS )
7573
*
76-
* -- LAPACK test routine (version 3.7.0) --
74+
* -- LAPACK test routine --
7775
* -- LAPACK is a software package provided by Univ. of Tennessee, --
7876
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
79-
* December 2016
8077
*
8178
* .. Scalar Arguments ..
8279
CHARACTER*3 TYPE

‎lapack-netlib/TESTING/EIG/cbdt01.f‎

Lines changed: 13 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -28,13 +28,13 @@
2828
*> \verbatim
2929
*>
3030
*> CBDT01 reconstructs a general matrix A from its bidiagonal form
31-
*> A = Q * B * P'
32-
*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary
31+
*> A = Q * B * P**H
32+
*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary
3333
*> matrices and B is bidiagonal.
3434
*>
3535
*> The test ratio to test the reduction is
36-
*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
37-
*> where PT = P' and EPS is the machine precision.
36+
*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
37+
*> where EPS is the machine precision.
3838
*> \endverbatim
3939
*
4040
* Arguments:
@@ -49,7 +49,7 @@
4949
*> \param[in] N
5050
*> \verbatim
5151
*> N is INTEGER
52-
*> The number of columns of the matrices A and P'.
52+
*> The number of columns of the matrices A and P**H.
5353
*> \endverbatim
5454
*>
5555
*> \param[in] KD
@@ -78,7 +78,7 @@
7878
*> \verbatim
7979
*> Q is COMPLEX array, dimension (LDQ,N)
8080
*> The m by min(m,n) unitary matrix Q in the reduction
81-
*> A = Q * B * P'.
81+
*> A = Q * B * P**H.
8282
*> \endverbatim
8383
*>
8484
*> \param[in] LDQ
@@ -103,8 +103,8 @@
103103
*> \param[in] PT
104104
*> \verbatim
105105
*> PT is COMPLEX array, dimension (LDPT,N)
106-
*> The min(m,n) by n unitary matrix P' in the reduction
107-
*> A = Q * B * P'.
106+
*> The min(m,n) by n unitary matrix P**H in the reduction
107+
*> A = Q * B * P**H.
108108
*> \endverbatim
109109
*>
110110
*> \param[in] LDPT
@@ -127,7 +127,8 @@
127127
*> \param[out] RESID
128128
*> \verbatim
129129
*> RESID is REAL
130-
*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS )
130+
*> The test ratio:
131+
*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
131132
*> \endverbatim
132133
*
133134
* Authors:
@@ -138,18 +139,15 @@
138139
*> \author Univ. of Colorado Denver
139140
*> \author NAG Ltd.
140141
*
141-
*> \date December 2016
142-
*
143142
*> \ingroup complex_eig
144143
*
145144
* =====================================================================
146145
SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
147146
$ RWORK, RESID )
148147
*
149-
* -- LAPACK test routine (version 3.7.0) --
148+
* -- LAPACK test routine --
150149
* -- LAPACK is a software package provided by Univ. of Tennessee, --
151150
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
152-
* December 2016
153151
*
154152
* .. Scalar Arguments ..
155153
INTEGER KD, LDA, LDPT, LDQ, M, N
@@ -190,7 +188,7 @@ SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
190188
RETURN
191189
END IF
192190
*
193-
* Compute A - Q * B * P' one column at a time.
191+
* Compute A - Q * B * P**H one column at a time.
194192
*
195193
RESID = ZERO
196194
IF( KD.NE.0 ) THEN
@@ -268,7 +266,7 @@ SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
268266
END IF
269267
END IF
270268
*
271-
* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS )
269+
* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
272270
*
273271
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
274272
EPS = SLAMCH( 'Precision' )

‎lapack-netlib/TESTING/EIG/cbdt02.f‎

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,8 @@
2727
*>
2828
*> \verbatim
2929
*>
30-
*> CBDT02 tests the change of basis C = U' * B by computing the residual
30+
*> CBDT02 tests the change of basis C = U**H * B by computing the
31+
*> residual
3132
*>
3233
*> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
3334
*>
@@ -66,7 +67,7 @@
6667
*> \param[in] C
6768
*> \verbatim
6869
*> C is COMPLEX array, dimension (LDC,N)
69-
*> The m by n matrix C, assumed to contain U' * B.
70+
*> The m by n matrix C, assumed to contain U**H * B.
7071
*> \endverbatim
7172
*>
7273
*> \param[in] LDC
@@ -111,18 +112,15 @@
111112
*> \author Univ. of Colorado Denver
112113
*> \author NAG Ltd.
113114
*
114-
*> \date December 2016
115-
*
116115
*> \ingroup complex_eig
117116
*
118117
* =====================================================================
119118
SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
120119
$ RESID )
121120
*
122-
* -- LAPACK test routine (version 3.7.0) --
121+
* -- LAPACK test routine --
123122
* -- LAPACK is a software package provided by Univ. of Tennessee, --
124123
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
125-
* December 2016
126124
*
127125
* .. Scalar Arguments ..
128126
INTEGER LDB, LDC, LDU, M, N

0 commit comments

Comments
 (0)