sort_mod_doub Module

Uses

Contents

Interfaces

operator(.gt.) operator(.lt.) sort cmplx_gt cmplx_lt

Functions

cmplx_gt_doub cmplx_lt_doub

Subroutines

sort_doub

Interfaces

private interface operator(.gt.)

private elemental function cmplx_gt_doub(a, b) result(bGt)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	a
complex(kind=dp),	intent(in)			::	b

Return Value logical

private interface operator(.lt.)

private elemental function cmplx_lt_doub(a, b) result(bLt)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	a
complex(kind=dp),	intent(in)			::	b

Return Value logical

public interface sort

private pure subroutine sort_doub(arr, nskip, par)

a is the pivot value

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	arr(:)
integer,	intent(in),	optional		::	nskip
integer,	intent(out),	optional		::	par

private interface cmplx_gt

private elemental function cmplx_gt_doub(a, b) result(bGt)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	a
complex(kind=dp),	intent(in)			::	b

Return Value logical

private interface cmplx_lt

private elemental function cmplx_lt_doub(a, b) result(bLt)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	a
complex(kind=dp),	intent(in)			::	b

Return Value logical

Functions

private elemental function cmplx_gt_doub(a, b) result(bGt)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	a
complex(kind=dp),	intent(in)			::	b

Return Value logical

private elemental function cmplx_lt_doub(a, b) result(bLt)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	a
complex(kind=dp),	intent(in)			::	b

Return Value logical

Subroutines

private pure subroutine sort_doub(arr, nskip, par)

a is the pivot value

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	arr(:)
integer,	intent(in),	optional		::	nskip
integer,	intent(out),	optional		::	par