Fix comments thanks to @vladimir-ch

chrwarm · Jul 23, 2021 · aaeeef2 · aaeeef2
1 parent a8a03af
commit aaeeef2
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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;