sort_mod_i_a_i_d Module



Contents


Interfaces

private interface operator(.gt.)

  • private elemental function cmplx_gt_i_a_i_d(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_i_a_i_d(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_i_a_i_d(arr, arr2, arr3, nskip, par)

    a is the pivot value

    Arguments

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

private interface cmplx_gt

  • private elemental function cmplx_gt_i_a_i_d(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_i_a_i_d(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_i_a_i_d(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_i_a_i_d(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_i_a_i_d(arr, arr2, arr3, nskip, par)

a is the pivot value

Arguments

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