sort_a_i_a_i_custom Subroutine

private pure subroutine sort_a_i_a_i_custom(arr, arr2, custom_lt, custom_gt, 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 :: custom_lt
real :: custom_gt
integer, intent(in), optional :: nskip
integer, intent(out), optional :: par

Contents