From f0a33b452fa50b281a0c98fe1300fe0f3303770f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 28 Oct 2021 07:05:14 +0200 Subject: [PATCH] unifying style --- src/prec.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/prec.f90 b/src/prec.f90 index 2e67ae76a..d6d161a94 100644 --- a/src/prec.f90 +++ b/src/prec.f90 @@ -101,7 +101,7 @@ logical elemental pure function dEq(a,b,tol) dEq = abs(a-b) <= tol else dEq = abs(a-b) <= PREAL_EPSILON * maxval(abs([a,b])) - endif + end if end function dEq @@ -139,7 +139,7 @@ logical elemental pure function dEq0(a,tol) dEq0 = abs(a) <= tol else dEq0 = abs(a) <= PREAL_MIN * 10.0_pReal - endif + end if end function dEq0 @@ -178,7 +178,7 @@ logical elemental pure function cEq(a,b,tol) cEq = abs(a-b) <= tol else cEq = abs(a-b) <= PREAL_EPSILON * maxval(abs([a,b])) - endif + end if end function cEq