You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.0 KiB
Fortran
45 lines
1.0 KiB
Fortran
18 years ago
|
module zlcmp_mod
|
||
|
|
interface operator(<)
|
||
|
|
module procedure zllt
|
||
|
|
end interface
|
||
|
|
interface operator(<=)
|
||
|
|
module procedure zlle
|
||
|
|
end interface
|
||
|
|
interface operator(>)
|
||
|
|
module procedure zlgt
|
||
|
|
end interface
|
||
|
|
interface operator(>=)
|
||
|
|
module procedure zlge
|
||
|
|
end interface
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
function zllt(a,b)
|
||
|
|
complex(kind(1.d0)), intent(in) :: a,b
|
||
|
|
logical :: zllt
|
||
|
|
|
||
|
|
zllt = (real(a)<real(b)).or.((real(a)==real(b)).and.(aimag(a)<aimag(b)))
|
||
|
|
end function zllt
|
||
|
|
function zlle(a,b)
|
||
|
|
complex(kind(1.d0)), intent(in) :: a,b
|
||
|
|
logical :: zlle
|
||
|
|
|
||
|
|
zlle = (real(a)<real(b)).or.((real(a)==real(b)).and.(aimag(a)<=aimag(b)))
|
||
|
|
end function zlle
|
||
|
|
|
||
|
|
function zlgt(a,b)
|
||
|
|
complex(kind(1.d0)), intent(in) :: a,b
|
||
|
|
logical :: zlgt
|
||
|
|
|
||
|
|
zlgt = (real(a)>real(b)).or.((real(a)==real(b)).and.(aimag(a)>aimag(b)))
|
||
|
|
end function zlgt
|
||
|
|
function zlge(a,b)
|
||
|
|
complex(kind(1.d0)), intent(in) :: a,b
|
||
|
|
logical :: zlge
|
||
|
|
|
||
|
|
zlge = (real(a)>real(b)).or.((real(a)==real(b)).and.(aimag(a)>=aimag(b)))
|
||
|
|
end function zlge
|
||
|
|
|
||
|
|
end module zlcmp_mod
|
||
|
|
|