floraachy/OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update the LAPACK testsuite to match 3.10.1

Browse Source
This commit is contained in:
martin-frbg
2022-05-11 18:40:55 +02:00
parent 510c7222ef
commit ffb4f04fbb
1214 changed files with 3605 additions and 5706 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lapack-netlib/TESTING/EIG/cbdt01.f
View File

@@ -28,13 +28,13 @@
*> \verbatim
*>
*> CBDT01 reconstructs a general matrix A from its bidiagonal form
*> A = Q * B * P'
*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary
*> A = Q * B * P**H
*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary
*> matrices and B is bidiagonal.
*>
*> The test ratio to test the reduction is
*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
*> where PT = P' and EPS is the machine precision.
*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
*> where EPS is the machine precision.
*> \endverbatim
*
* Arguments:
@@ -49,7 +49,7 @@
*> \param[in] N
*> \verbatim
*> N is INTEGER
*> The number of columns of the matrices A and P'.
*> The number of columns of the matrices A and P**H.
*> \endverbatim
*>
*> \param[in] KD
@@ -78,7 +78,7 @@
*> \verbatim
*> Q is COMPLEX array, dimension (LDQ,N)
*> The m by min(m,n) unitary matrix Q in the reduction
*> A = Q * B * P'.
*> A = Q * B * P**H.
*> \endverbatim
*>
*> \param[in] LDQ
@@ -103,8 +103,8 @@
*> \param[in] PT
*> \verbatim
*> PT is COMPLEX array, dimension (LDPT,N)
*> The min(m,n) by n unitary matrix P' in the reduction
*> A = Q * B * P'.
*> The min(m,n) by n unitary matrix P**H in the reduction
*> A = Q * B * P**H.
*> \endverbatim
*>
*> \param[in] LDPT
@@ -127,7 +127,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS )
*> The test ratio:
*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -138,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
$ RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
*
* .. Scalar Arguments ..
INTEGER KD, LDA, LDPT, LDQ, M, N
@@ -190,7 +188,7 @@
RETURN
END IF
*
* Compute A - Q * B * P' one column at a time.
* Compute A - Q * B * P**H one column at a time.
*
RESID = ZERO
IF( KD.NE.0 ) THEN
@@ -268,7 +266,7 @@
END IF
END IF
*
* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS )
* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
*
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
EPS = SLAMCH( 'Precision' )