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