Fix comments thanks to @vladimir-ch

Author: weslleyspereira

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;

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;

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;

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;