From 9e7c7ae87bc8ce28e26738b68f3ab30e88d79b3a Mon Sep 17 00:00:00 2001 From: Weslley S Pereira Date: Fri, 26 May 2023 09:32:11 -0600 Subject: [PATCH 1/2] Updates the documentation of xGEMV and xGBMV related to when M=0 and N=0 --- BLAS/SRC/cgbmv.f | 1 + BLAS/SRC/cgemv.f | 1 + BLAS/SRC/dgbmv.f | 1 + BLAS/SRC/dgemv.f | 1 + BLAS/SRC/sgbmv.f | 1 + BLAS/SRC/sgemv.f | 1 + BLAS/SRC/zgbmv.f | 1 + BLAS/SRC/zgemv.f | 1 + 8 files changed, 8 insertions(+) diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index 42a1da0335..4f2414d8f1 100644 --- a/BLAS/SRC/cgbmv.f +++ b/BLAS/SRC/cgbmv.f @@ -148,6 +148,7 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f index 574be07602..451502f0b5 100644 --- a/BLAS/SRC/cgemv.f +++ b/BLAS/SRC/cgemv.f @@ -119,6 +119,7 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f index 4c8f088b00..969afea1f3 100644 --- a/BLAS/SRC/dgbmv.f +++ b/BLAS/SRC/dgbmv.f @@ -146,6 +146,7 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/dgemv.f b/BLAS/SRC/dgemv.f index 6625509b3a..ef327dd6c5 100644 --- a/BLAS/SRC/dgemv.f +++ b/BLAS/SRC/dgemv.f @@ -117,6 +117,7 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f index b5211eec99..3550792c63 100644 --- a/BLAS/SRC/sgbmv.f +++ b/BLAS/SRC/sgbmv.f @@ -146,6 +146,7 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/sgemv.f b/BLAS/SRC/sgemv.f index 0517b124c5..31dc1044bf 100644 --- a/BLAS/SRC/sgemv.f +++ b/BLAS/SRC/sgemv.f @@ -117,6 +117,7 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f index 0bca54eb9e..38c31fd350 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -148,6 +148,7 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/zgemv.f b/BLAS/SRC/zgemv.f index 2664454b94..e735690c33 100644 --- a/BLAS/SRC/zgemv.f +++ b/BLAS/SRC/zgemv.f @@ -119,6 +119,7 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced. *> \endverbatim *> *> \param[in] INCY From 658ac9dbbb5500010182b15bf5756f8d251eea0b Mon Sep 17 00:00:00 2001 From: Weslley S Pereira Date: Tue, 22 Aug 2023 11:58:49 -0600 Subject: [PATCH 2/2] Updates documentation of *gemv.f, *gbmv.f, *la_gbamv.f, *la_geamv.f --- BLAS/SRC/cgbmv.f | 3 ++- BLAS/SRC/cgemv.f | 3 ++- BLAS/SRC/dgbmv.f | 3 ++- BLAS/SRC/dgemv.f | 3 ++- BLAS/SRC/sgbmv.f | 3 ++- BLAS/SRC/sgemv.f | 3 ++- BLAS/SRC/zgbmv.f | 3 ++- BLAS/SRC/zgemv.f | 3 ++- SRC/cla_gbamv.f | 2 ++ SRC/cla_geamv.f | 2 ++ SRC/dla_gbamv.f | 2 ++ SRC/dla_geamv.f | 2 ++ SRC/sla_gbamv.f | 2 ++ SRC/sla_geamv.f | 2 ++ SRC/zla_gbamv.f | 2 ++ SRC/zla_geamv.f | 2 ++ 16 files changed, 32 insertions(+), 8 deletions(-) diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index 4f2414d8f1..aebd647a8f 100644 --- a/BLAS/SRC/cgbmv.f +++ b/BLAS/SRC/cgbmv.f @@ -148,7 +148,8 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f index 451502f0b5..7ce6a4b7f0 100644 --- a/BLAS/SRC/cgemv.f +++ b/BLAS/SRC/cgemv.f @@ -119,7 +119,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f index 969afea1f3..e5e03221f7 100644 --- a/BLAS/SRC/dgbmv.f +++ b/BLAS/SRC/dgbmv.f @@ -146,7 +146,8 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/dgemv.f b/BLAS/SRC/dgemv.f index ef327dd6c5..5b23ac6f2b 100644 --- a/BLAS/SRC/dgemv.f +++ b/BLAS/SRC/dgemv.f @@ -117,7 +117,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f index 3550792c63..52108297ca 100644 --- a/BLAS/SRC/sgbmv.f +++ b/BLAS/SRC/sgbmv.f @@ -146,7 +146,8 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/sgemv.f b/BLAS/SRC/sgemv.f index 31dc1044bf..0a9b7398b8 100644 --- a/BLAS/SRC/sgemv.f +++ b/BLAS/SRC/sgemv.f @@ -117,7 +117,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f index 38c31fd350..0ae924b1c7 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -148,7 +148,8 @@ *> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise. *> Before entry, the incremented array Y must contain the *> vector y. On exit, Y is overwritten by the updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/zgemv.f b/BLAS/SRC/zgemv.f index e735690c33..f75e2d8dd5 100644 --- a/BLAS/SRC/zgemv.f +++ b/BLAS/SRC/zgemv.f @@ -119,7 +119,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. -*> If either m or n is zero, then Y not referenced. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/cla_gbamv.f b/SRC/cla_gbamv.f index e98334fa48..cfa1697958 100644 --- a/SRC/cla_gbamv.f +++ b/SRC/cla_gbamv.f @@ -158,6 +158,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/cla_geamv.f b/SRC/cla_geamv.f index 22ba240aac..a6333281c0 100644 --- a/SRC/cla_geamv.f +++ b/SRC/cla_geamv.f @@ -147,6 +147,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/dla_gbamv.f b/SRC/dla_gbamv.f index a998c0cf11..09ebd096d6 100644 --- a/SRC/dla_gbamv.f +++ b/SRC/dla_gbamv.f @@ -157,6 +157,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/dla_geamv.f b/SRC/dla_geamv.f index 8e962b459f..28931b846e 100644 --- a/SRC/dla_geamv.f +++ b/SRC/dla_geamv.f @@ -146,6 +146,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/sla_gbamv.f b/SRC/sla_gbamv.f index c584466121..640c2b966a 100644 --- a/SRC/sla_gbamv.f +++ b/SRC/sla_gbamv.f @@ -157,6 +157,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/sla_geamv.f b/SRC/sla_geamv.f index 0fcb80241d..3e69ce0c2b 100644 --- a/SRC/sla_geamv.f +++ b/SRC/sla_geamv.f @@ -146,6 +146,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/zla_gbamv.f b/SRC/zla_gbamv.f index a4a9bc0a08..723e153670 100644 --- a/SRC/zla_gbamv.f +++ b/SRC/zla_gbamv.f @@ -158,6 +158,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY diff --git a/SRC/zla_geamv.f b/SRC/zla_geamv.f index bcdc5f1283..0655576637 100644 --- a/SRC/zla_geamv.f +++ b/SRC/zla_geamv.f @@ -147,6 +147,8 @@ *> Before entry with BETA non-zero, the incremented array Y *> must contain the vector y. On exit, Y is overwritten by the *> updated vector y. +*> If either m or n is zero, then Y not referenced and the function +*> performs a quick return. *> \endverbatim *> *> \param[in] INCY