sort_mod_sym Module

Uses

Contents

Interfaces

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

Functions

cmplx_gt_sym cmplx_lt_sym

Subroutines

sort_sym

Interfaces

private interface operator(.gt.)

private elemental function cmplx_gt_sym(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_sym(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_sym(arr, nskip, par)

a is the pivot value

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(inout)			::	arr(:)
integer,	intent(in),	optional		::	nskip
integer,	intent(out),	optional		::	par

private interface cmplx_gt

private elemental function cmplx_gt_sym(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_sym(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_sym(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_sym(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_sym(arr, nskip, par)

a is the pivot value

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(inout)			::	arr(:)
integer,	intent(in),	optional		::	nskip
integer,	intent(out),	optional		::	par