Remove unused notbig = .false. thanks to @vladimir-ch

weslleyspereira · weslleyspereira · commit a8a03af993e7 · 2021-06-24T18:57:14.000-03:00
diff --git a/SRC/classq.f90 b/SRC/classq.f90
@@ -211,7 +211,6 @@ subroutine CLASSQ( n, x, incx, scl, sumsq )
       if (ax > tbig) then
 !        We assume scl >= sqrt( TINY*EPS ) / sbig
          abig = abig + (scl*sbig)**2 * sumsq
-         notbig = .false.
       else if (ax < tsml) then
 !        We assume scl <= sqrt( HUGE ) / ssml
          if (notbig) asml = asml + (scl*ssml)**2 * sumsq
diff --git a/SRC/dlassq.f90 b/SRC/dlassq.f90
@@ -202,7 +202,6 @@ subroutine DLASSQ( n, x, incx, scl, sumsq )
       if (ax > tbig) then
 !        We assume scl >= sqrt( TINY*EPS ) / sbig
          abig = abig + (scl*sbig)**2 * sumsq
-         notbig = .false.
       else if (ax < tsml) then
 !        We assume scl <= sqrt( HUGE ) / ssml
          if (notbig) asml = asml + (scl*ssml)**2 * sumsq
diff --git a/SRC/slassq.f90 b/SRC/slassq.f90
@@ -202,7 +202,6 @@ subroutine SLASSQ( n, x, incx, scl, sumsq )
       if (ax > tbig) then
 !        We assume scl >= sqrt( TINY*EPS ) / sbig
          abig = abig + (scl*sbig)**2 * sumsq
-         notbig = .false.
       else if (ax < tsml) then
 !        We assume scl <= sqrt( HUGE ) / ssml
          if (notbig) asml = asml + (scl*ssml)**2 * sumsq
diff --git a/SRC/zlassq.f90 b/SRC/zlassq.f90
@@ -211,7 +211,6 @@ subroutine ZLASSQ( n, x, incx, scl, sumsq )
       if (ax > tbig) then
 !        We assume scl >= sqrt( TINY*EPS ) / sbig
          abig = abig + (scl*sbig)**2 * sumsq
-         notbig = .false.
       else if (ax < tsml) then
 !        We assume scl <= sqrt( HUGE ) / ssml
          if (notbig) asml = asml + (scl*ssml)**2 * sumsq
