From 810931820eab9b069ba39d340cd2571af579c582 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 22 Oct 2007 08:55:18 +0000 Subject: [PATCH] *** empty log message *** --- base/serial/aux/zacmp_mod.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/base/serial/aux/zacmp_mod.f90 b/base/serial/aux/zacmp_mod.f90 index bc08ea02..ab1ac529 100644 --- a/base/serial/aux/zacmp_mod.f90 +++ b/base/serial/aux/zacmp_mod.f90 @@ -18,26 +18,26 @@ contains complex(kind(1.d0)), intent(in) :: a,b logical :: zalt - zalt = ((abs(real(a))+abs(aimag(a))) < (abs(real(b))+abs(aimag(b)))) + zalt = (abs(a) < abs(b)) end function zalt function zale(a,b) complex(kind(1.d0)), intent(in) :: a,b logical :: zale - zale = ((abs(real(a))+abs(aimag(a))) <= (abs(real(b))+abs(aimag(b)))) + zale = (abs(a) <= abs(b)) end function zale function zagt(a,b) complex(kind(1.d0)), intent(in) :: a,b logical :: zagt - zagt = ((abs(real(a))+abs(aimag(a))) > (abs(real(b))+abs(aimag(b)))) + zagt = (abs(a) > abs(b)) end function zagt function zage(a,b) complex(kind(1.d0)), intent(in) :: a,b logical :: zage - zage = ((abs(real(a))+abs(aimag(a))) >= (abs(real(b))+abs(aimag(b)))) + zage = (abs(a) >= abs(b)) end function zage end module zacmp_mod