From 29dbac94c32cf7743e7ef4898e070a36341b96e9 Mon Sep 17 00:00:00 2001 From: Johnathan Rhyne Date: Sun, 1 Dec 2024 23:50:10 -0500 Subject: [PATCH] Fixing misspelling of 'triangular' in {s,d,c,z}gemmtr.f --- BLAS/SRC/cgemmtr.f | 6 +++--- BLAS/SRC/dgemmtr.f | 6 +++--- BLAS/SRC/sgemmtr.f | 6 +++--- BLAS/SRC/zgemmtr.f | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/BLAS/SRC/cgemmtr.f b/BLAS/SRC/cgemmtr.f index 68063cbda..a5f552960 100644 --- a/BLAS/SRC/cgemmtr.f +++ b/BLAS/SRC/cgemmtr.f @@ -50,9 +50,9 @@ *> On entry, UPLO specifies whether the lower or the upper *> triangular part of C is access and updated. *> -*> UPLO = 'L' or 'l', the lower tringular part of C is used. +*> UPLO = 'L' or 'l', the lower triangular part of C is used. *> -*> UPLO = 'U' or 'u', the upper tringular part of C is used. +*> UPLO = 'U' or 'u', the upper triangular part of C is used. *> \endverbatim * *> \param[in] TRANSA @@ -154,7 +154,7 @@ *> Before entry, the leading n by n part of the array C must *> contain the matrix C, except when beta is zero, in which *> case C need not be set on entry. -*> On exit, the upper or lower trinangular part of the matrix +*> On exit, the upper or lower triangular part of the matrix *> C is overwritten by the n by n matrix *> ( alpha*op( A )*op( B ) + beta*C ). *> \endverbatim diff --git a/BLAS/SRC/dgemmtr.f b/BLAS/SRC/dgemmtr.f index 74e0ce0da..cab5b71fc 100644 --- a/BLAS/SRC/dgemmtr.f +++ b/BLAS/SRC/dgemmtr.f @@ -50,9 +50,9 @@ *> On entry, UPLO specifies whether the lower or the upper *> triangular part of C is access and updated. *> -*> UPLO = 'L' or 'l', the lower tringular part of C is used. +*> UPLO = 'L' or 'l', the lower triangular part of C is used. *> -*> UPLO = 'U' or 'u', the upper tringular part of C is used. +*> UPLO = 'U' or 'u', the upper triangular part of C is used. *> \endverbatim * *> \param[in] TRANSA @@ -154,7 +154,7 @@ *> Before entry, the leading n by n part of the array C must *> contain the matrix C, except when beta is zero, in which *> case C need not be set on entry. -*> On exit, the upper or lower trinangular part of the matrix +*> On exit, the upper or lower triangular part of the matrix *> C is overwritten by the n by n matrix *> ( alpha*op( A )*op( B ) + beta*C ). *> \endverbatim diff --git a/BLAS/SRC/sgemmtr.f b/BLAS/SRC/sgemmtr.f index 1aeff65e0..257ff8bde 100644 --- a/BLAS/SRC/sgemmtr.f +++ b/BLAS/SRC/sgemmtr.f @@ -50,9 +50,9 @@ *> On entry, UPLO specifies whether the lower or the upper *> triangular part of C is access and updated. *> -*> UPLO = 'L' or 'l', the lower tringular part of C is used. +*> UPLO = 'L' or 'l', the lower triangular part of C is used. *> -*> UPLO = 'U' or 'u', the upper tringular part of C is used. +*> UPLO = 'U' or 'u', the upper triangular part of C is used. *> \endverbatim * *> \param[in] TRANSA @@ -154,7 +154,7 @@ *> Before entry, the leading n by n part of the array C must *> contain the matrix C, except when beta is zero, in which *> case C need not be set on entry. -*> On exit, the upper or lower trinangular part of the matrix +*> On exit, the upper or lower triangular part of the matrix *> C is overwritten by the n by n matrix *> ( alpha*op( A )*op( B ) + beta*C ). *> \endverbatim diff --git a/BLAS/SRC/zgemmtr.f b/BLAS/SRC/zgemmtr.f index 9f3048802..01dd91c38 100644 --- a/BLAS/SRC/zgemmtr.f +++ b/BLAS/SRC/zgemmtr.f @@ -50,9 +50,9 @@ *> On entry, UPLO specifies whether the lower or the upper *> triangular part of C is access and updated. *> -*> UPLO = 'L' or 'l', the lower tringular part of C is used. +*> UPLO = 'L' or 'l', the lower triangular part of C is used. *> -*> UPLO = 'U' or 'u', the upper tringular part of C is used. +*> UPLO = 'U' or 'u', the upper triangular part of C is used. *> \endverbatim * *> \param[in] TRANSA @@ -154,7 +154,7 @@ *> Before entry, the leading n by n part of the array C must *> contain the matrix C, except when beta is zero, in which *> case C need not be set on entry. -*> On exit, the upper or lower trinangular part of the matrix +*> On exit, the upper or lower triangular part of the matrix *> C is overwritten by the n by n matrix *> ( alpha*op( A )*op( B ) + beta*C ). *> \endverbatim