fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2007-10-22 08:55:18 +00:00
parent 0e9031195c
commit 810931820e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/aux/zacmp_mod.f90
+4 -4
View File
@@ -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