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

Fix typo in description of VR argument (Reference-LAPACK 812)

This commit is contained in:
Martin Kroeker 2023-05-16 20:05:05 +02:00 committed by GitHub
parent 02efa8d6be
commit 5fbd5f531b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lapack-netlib/SRC/ctgevc.f
View File

@ -53,7 +53,7 @@
*> *>
*> S*x = w*P*x, (y**H)*S = w*(y**H)*P, *> S*x = w*P*x, (y**H)*S = w*(y**H)*P,
*> *>
*> where y**H denotes the conjugate tranpose of y. *> where y**H denotes the conjugate transpose of y.
*> The eigenvalues are not input to this routine, but are computed *> The eigenvalues are not input to this routine, but are computed
*> directly from the diagonal elements of S and P. *> directly from the diagonal elements of S and P.
*> *>
@ -154,7 +154,7 @@
*> \verbatim *> \verbatim
*> VR is COMPLEX array, dimension (LDVR,MM) *> VR is COMPLEX array, dimension (LDVR,MM)
*> On entry, if SIDE = 'R' or 'B' and HOWMNY = 'B', VR must *> On entry, if SIDE = 'R' or 'B' and HOWMNY = 'B', VR must
*> contain an N-by-N matrix Q (usually the unitary matrix Z *> contain an N-by-N matrix Z (usually the unitary matrix Z
*> of right Schur vectors returned by CHGEQZ). *> of right Schur vectors returned by CHGEQZ).
*> On exit, if SIDE = 'R' or 'B', VR contains: *> On exit, if SIDE = 'R' or 'B', VR contains:
*> if HOWMNY = 'A', the matrix X of right eigenvectors of (S,P); *> if HOWMNY = 'A', the matrix X of right eigenvectors of (S,P);
@ -259,7 +259,7 @@
EXTERNAL LSAME, SLAMCH, CLADIV EXTERNAL LSAME, SLAMCH, CLADIV
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL CGEMV, SLABAD, XERBLA EXTERNAL CGEMV, XERBLA
* .. * ..
* .. Intrinsic Functions .. * .. Intrinsic Functions ..
INTRINSIC ABS, AIMAG, CMPLX, CONJG, MAX, MIN, REAL INTRINSIC ABS, AIMAG, CMPLX, CONJG, MAX, MIN, REAL
@ -367,7 +367,6 @@
* *
SAFMIN = SLAMCH( 'Safe minimum' ) SAFMIN = SLAMCH( 'Safe minimum' )
BIG = ONE / SAFMIN BIG = ONE / SAFMIN
CALL SLABAD( SAFMIN, BIG )
ULP = SLAMCH( 'Epsilon' )*SLAMCH( 'Base' ) ULP = SLAMCH( 'Epsilon' )*SLAMCH( 'Base' )
SMALL = SAFMIN*N / ULP SMALL = SAFMIN*N / ULP
BIG = ONE / SMALL BIG = ONE / SMALL

7
lapack-netlib/SRC/ztgevc.f
View File

@ -53,7 +53,7 @@
*> *>
*> S*x = w*P*x, (y**H)*S = w*(y**H)*P, *> S*x = w*P*x, (y**H)*S = w*(y**H)*P,
*> *>
*> where y**H denotes the conjugate tranpose of y. *> where y**H denotes the conjugate transpose of y.
*> The eigenvalues are not input to this routine, but are computed *> The eigenvalues are not input to this routine, but are computed
*> directly from the diagonal elements of S and P. *> directly from the diagonal elements of S and P.
*> *>
@ -154,7 +154,7 @@
*> \verbatim *> \verbatim
*> VR is COMPLEX*16 array, dimension (LDVR,MM) *> VR is COMPLEX*16 array, dimension (LDVR,MM)
*> On entry, if SIDE = 'R' or 'B' and HOWMNY = 'B', VR must *> On entry, if SIDE = 'R' or 'B' and HOWMNY = 'B', VR must
*> contain an N-by-N matrix Q (usually the unitary matrix Z *> contain an N-by-N matrix Z (usually the unitary matrix Z
*> of right Schur vectors returned by ZHGEQZ). *> of right Schur vectors returned by ZHGEQZ).
*> On exit, if SIDE = 'R' or 'B', VR contains: *> On exit, if SIDE = 'R' or 'B', VR contains:
*> if HOWMNY = 'A', the matrix X of right eigenvectors of (S,P); *> if HOWMNY = 'A', the matrix X of right eigenvectors of (S,P);
@ -259,7 +259,7 @@
EXTERNAL LSAME, DLAMCH, ZLADIV EXTERNAL LSAME, DLAMCH, ZLADIV
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL DLABAD, XERBLA, ZGEMV EXTERNAL XERBLA, ZGEMV
* .. * ..
* .. Intrinsic Functions .. * .. Intrinsic Functions ..
INTRINSIC ABS, DBLE, DCMPLX, DCONJG, DIMAG, MAX, MIN INTRINSIC ABS, DBLE, DCMPLX, DCONJG, DIMAG, MAX, MIN
@ -367,7 +367,6 @@
* *
SAFMIN = DLAMCH( 'Safe minimum' ) SAFMIN = DLAMCH( 'Safe minimum' )
BIG = ONE / SAFMIN BIG = ONE / SAFMIN
CALL DLABAD( SAFMIN, BIG )
ULP = DLAMCH( 'Epsilon' )*DLAMCH( 'Base' ) ULP = DLAMCH( 'Epsilon' )*DLAMCH( 'Base' )
SMALL = SAFMIN*N / ULP SMALL = SAFMIN*N / ULP
BIG = ONE / SMALL BIG = ONE / SMALL