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

chrwarm · Jun 24, 2021 · a8a03af · a8a03af
1 parent e7d572c
commit a8a03af
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 4 deletions.
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