phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use /= instead of isnan

Browse Source
This commit is contained in:
Weslley da Silva Pereira
2025-03-28 08:23:58 -06:00
parent 50dc1bf238
commit e3a48809c8
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BLAS/SRC/icamax.f90
+4 -4
View File
@@ -103,14 +103,14 @@ integer function icamax(n, x, incx)
if (incx == 1) then
! code for increment equal to 1
do i = 1, n
if (isnan(real(x(i))) .or. isnan(imag(x(i)))) then
if (x(i) /= x(i)) then
! return when first NaN found
icamax = i
return
elseif (abs(real(x(i))) > hugeval .or. abs(imag(x(i))) > hugeval) then
! keep looking for first NaN
do j = i+1, n
if (isnan(real(x(j))) .or. isnan(imag(x(j)))) then
if (x(j) /= x(j)) then
! return when first NaN found
icamax = j
return
@@ -144,7 +144,7 @@ integer function icamax(n, x, incx)
! code for increment not equal to 1
ix = 1
do i = 1, n
if (isnan(real(x(ix))) .or. isnan(imag(x(ix)))) then
if (x(ix) /= x(ix)) then
! return when first NaN found
icamax = i
return
@@ -152,7 +152,7 @@ integer function icamax(n, x, incx)
! keep looking for first NaN
jx = ix + incx
do j = i+1, n
if (isnan(real(x(jx))) .or. isnan(imag(x(jx)))) then
if (x(jx) /= x(jx)) then
! return when first NaN found
icamax = j
return
BLAS/SRC/izamax.f90
+4 -4
View File
@@ -103,14 +103,14 @@ integer function izamax(n, x, incx)
if (incx == 1) then
! code for increment equal to 1
do i = 1, n
if (isnan(real(x(i))) .or. isnan(imag(x(i)))) then
if (x(i) /= x(i)) then
! return when first NaN found
izamax = i
return
elseif (abs(real(x(i))) > hugeval .or. abs(imag(x(i))) > hugeval) then
! keep looking for first NaN
do j = i+1, n
if (isnan(real(x(j))) .or. isnan(imag(x(j)))) then
if (x(j) /= x(j)) then
! return when first NaN found
izamax = j
return
@@ -144,7 +144,7 @@ integer function izamax(n, x, incx)
! code for increment not equal to 1
ix = 1
do i = 1, n
if (isnan(real(x(ix))) .or. isnan(imag(x(ix)))) then
if (x(ix) /= x(ix)) then
! return when first NaN found
izamax = i
return
@@ -152,7 +152,7 @@ integer function izamax(n, x, incx)
! keep looking for first NaN
jx = ix + incx
do j = i+1, n
if (isnan(real(x(jx))) .or. isnan(imag(x(jx)))) then
if (x(jx) /= x(jx)) then
! return when first NaN found
izamax = j
return