diff --git a/SRC/classq.f90 b/SRC/classq.f90
index a26035dc44..cb4e7971f0 100644
--- a/SRC/classq.f90
+++ b/SRC/classq.f90
@@ -46,7 +46,7 @@
 !>
 !> If scale * sqrt( sumsq ) > tbig then
 !>    we require:   scale >= sqrt( TINY*EPS ) / sbig   on entry,
-!> and if scale * sqrt( sumsq ) < tsml then
+!> and if 0 < scale * sqrt( sumsq ) < tsml then
 !>    we require:   scale <= sqrt( HUGE ) / ssml       on entry,
 !> where
 !>    tbig -- upper threshold for values whose square is representable;
diff --git a/SRC/dlassq.f90 b/SRC/dlassq.f90
index 76ede8c9ec..fddd1bf38f 100644
--- a/SRC/dlassq.f90
+++ b/SRC/dlassq.f90
@@ -46,7 +46,7 @@
 !>
 !> If scale * sqrt( sumsq ) > tbig then
 !>    we require:   scale >= sqrt( TINY*EPS ) / sbig   on entry,
-!> and if scale * sqrt( sumsq ) < tsml then
+!> and if 0 < scale * sqrt( sumsq ) < tsml then
 !>    we require:   scale <= sqrt( HUGE ) / ssml       on entry,
 !> where
 !>    tbig -- upper threshold for values whose square is representable;
diff --git a/SRC/slassq.f90 b/SRC/slassq.f90
index 8de6329f7d..19f49402b1 100644
--- a/SRC/slassq.f90
+++ b/SRC/slassq.f90
@@ -46,7 +46,7 @@
 !>
 !> If scale * sqrt( sumsq ) > tbig then
 !>    we require:   scale >= sqrt( TINY*EPS ) / sbig   on entry,
-!> and if scale * sqrt( sumsq ) < tsml then
+!> and if 0 < scale * sqrt( sumsq ) < tsml then
 !>    we require:   scale <= sqrt( HUGE ) / ssml       on entry,
 !> where
 !>    tbig -- upper threshold for values whose square is representable;
diff --git a/SRC/zlassq.f90 b/SRC/zlassq.f90
index a6186d27e9..9346dacac9 100644
--- a/SRC/zlassq.f90
+++ b/SRC/zlassq.f90
@@ -46,7 +46,7 @@
 !>
 !> If scale * sqrt( sumsq ) > tbig then
 !>    we require:   scale >= sqrt( TINY*EPS ) / sbig   on entry,
-!> and if scale * sqrt( sumsq ) < tsml then
+!> and if 0 < scale * sqrt( sumsq ) < tsml then
 !>    we require:   scale <= sqrt( HUGE ) / ssml       on entry,
 !> where
 !>    tbig -- upper threshold for values whose square is representable;