From c3f51cbf4b9997e8fb5414b098cd80e0fab3ab96 Mon Sep 17 00:00:00 2001 From: David Minton Date: Wed, 26 May 2021 23:02:54 -0400 Subject: [PATCH] Added any because the argument is a vector --- src/util/util_solve_linear_system.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util/util_solve_linear_system.f90 b/src/util/util_solve_linear_system.f90 index b44f9168f..b81d6a15b 100644 --- a/src/util/util_solve_linear_system.f90 +++ b/src/util/util_solve_linear_system.f90 @@ -30,7 +30,7 @@ function util_solve_linear_system_d(A,b,n,lerr) result(x) call ieee_get_flag(ieee_usual, fpe_flag) lerr = any(fpe_flag) - if (lerr .or. (abs(qx) > huge(x)) .or. (abs(qx) < tiny(x))) then + if (lerr .or. (any(abs(qx) > huge(x))) .or. (any(abs(qx) < tiny(x)))) then x = 0.0_DP write(*,*) 'fpe in util_solve_linear_system' else