sort_mod_a_i64_a_d_custom Module



Contents


Interfaces

private interface operator(.gt.)

  • private elemental function cmplx_gt_a_i64_a_d_custom(a, b) result(bGt)

    Arguments

    Type IntentOptional 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_a_i64_a_d_custom(a, b) result(bLt)

    Arguments

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

    Return Value logical

public interface sort

  • private pure subroutine sort_a_i64_a_d_custom(arr, arr2, custom_lt, custom_gt, nskip, par)

    a is the pivot value

    Arguments

    Type IntentOptional Attributes Name
    integer(kind=int64), intent(inout) :: arr(:,:)
    real(kind=dp), intent(inout) :: arr2(:,:)
    real :: custom_lt
    real :: custom_gt
    integer, intent(in), optional :: nskip
    integer, intent(out), optional :: par

private interface cmplx_gt

  • private elemental function cmplx_gt_a_i64_a_d_custom(a, b) result(bGt)

    Arguments

    Type IntentOptional 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_a_i64_a_d_custom(a, b) result(bLt)

    Arguments

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

    Return Value logical


Functions

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

Arguments

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

Return Value logical

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

Arguments

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

Return Value logical


Subroutines

private pure subroutine sort_a_i64_a_d_custom(arr, arr2, custom_lt, custom_gt, nskip, par)

a is the pivot value

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(inout) :: arr(:,:)
real(kind=dp), intent(inout) :: arr2(:,:)
real :: custom_lt
real :: custom_gt
integer, intent(in), optional :: nskip
integer, intent(out), optional :: par