From fdf1274b28bb7a9d25261bb771442b081109470e Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Wed, 13 Aug 2014 07:43:14 -0300 Subject: [PATCH] EVOLUTION: Fix wrong function name iee_is_nan(). Signed-off-by: Grzegorz Kowal --- src/evolution.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/evolution.F90 b/src/evolution.F90 index c6d9675..742e0c1 100644 --- a/src/evolution.F90 +++ b/src/evolution.F90 @@ -889,7 +889,7 @@ module evolution if (ieee_is_nan(pdata%u(p,i,j,k))) then print *, 'U NaN:', cvars(p), pdata%meta%id, i, j, k end if - if (ieee_is_isnan(pdata%q(p,i,j,k))) then + if (ieee_is_nan(pdata%q(p,i,j,k))) then print *, 'Q NaN:', pvars(p), pdata%meta%id, i, j, k end if #else /* IBM */