We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f84c9da commit 009f9e6Copy full SHA for 009f9e6
src/polyroots_module.F90
@@ -21,6 +21,7 @@
21
module polyroots_module
22
23
use iso_fortran_env
24
+ use ieee_arithmetic
25
26
implicit none
27
@@ -5402,7 +5403,8 @@ function check_nan_inf(a) result(res)
5402
5403
! check for nan and inf
5404
re_a = real(a,wp)
5405
im_a = aimag(a)
- res = isnan(re_a) .or. isnan(im_a) .or. (abs(re_a)>big) .or. (abs(im_a)>big)
5406
+ res = ieee_is_nan(re_a) .or. ieee_is_nan(im_a) .or. &
5407
+ (abs(re_a)>big) .or. (abs(im_a)>big)
5408
5409
end function check_nan_inf
5410
0 commit comments