sort_mod_c_c_c Module

Uses

Contents

Interfaces

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

Functions

cmplx_gt_c_c_c cmplx_lt_c_c_c

Subroutines

sort_c_c_c

Interfaces

private interface operator(.gt.)

private elemental function cmplx_gt_c_c_c(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_c_c_c(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_c_c_c(arr, arr2, arr3, nskip, par)

a is the pivot value

Arguments

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

private interface cmplx_gt

private elemental function cmplx_gt_c_c_c(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_c_c_c(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_c_c_c(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_c_c_c(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_c_c_c(arr, arr2, arr3, nskip, par)

a is the pivot value

Arguments

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