int32_ord_sort Module Subroutine

module subroutine int32_ord_sort(array, work, reverse)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(inout) :: array(0:)
integer(kind=int32), intent(out), optional :: work(0:)
logical, intent(in), optional :: reverse

Calls

proc~~int32_ord_sort~~CallsGraph proc~int32_ord_sort int32_ord_sort interface~pic_optional pic_optional proc~int32_ord_sort->interface~pic_optional proc~int32_decrease_ord_sort int32_decrease_ord_sort proc~int32_ord_sort->proc~int32_decrease_ord_sort proc~int32_increase_ord_sort int32_increase_ord_sort proc~int32_ord_sort->proc~int32_increase_ord_sort proc~optional_char optional_char interface~pic_optional->proc~optional_char proc~optional_dp optional_dp interface~pic_optional->proc~optional_dp proc~optional_int32 optional_int32 interface~pic_optional->proc~optional_int32 proc~optional_int64 optional_int64 interface~pic_optional->proc~optional_int64 proc~optional_logical optional_logical interface~pic_optional->proc~optional_logical proc~optional_sp optional_sp interface~pic_optional->proc~optional_sp none~merge_sort~16 merge_sort proc~int32_decrease_ord_sort->none~merge_sort~16 none~merge_sort~11 merge_sort proc~int32_increase_ord_sort->none~merge_sort~11 none~calc_min_run~11 calc_min_run none~merge_sort~11->none~calc_min_run~11 none~collapse~11 collapse none~merge_sort~11->none~collapse~11 none~insert_head~11 insert_head none~merge_sort~11->none~insert_head~11 none~insertion_sort~11 insertion_sort none~merge_sort~11->none~insertion_sort~11 none~reverse_segment~11 reverse_segment none~merge_sort~11->none~reverse_segment~11 none~calc_min_run~16 calc_min_run none~merge_sort~16->none~calc_min_run~16 none~collapse~16 collapse none~merge_sort~16->none~collapse~16 none~insert_head~16 insert_head none~merge_sort~16->none~insert_head~16 none~insertion_sort~16 insertion_sort none~merge_sort~16->none~insertion_sort~16 none~reverse_segment~16 reverse_segment none~merge_sort~16->none~reverse_segment~16

Source Code

   module subroutine int32_ord_sort(array, work, reverse)
      integer(int32), intent(inout)         :: array(0:)
      integer(int32), intent(out), optional :: work(0:)
      logical, intent(in), optional :: reverse

      if (pic_optional(reverse, .false.)) then
         call int32_decrease_ord_sort(array, work)
      else
         call int32_increase_ord_sort(array, work)
      end if

   end subroutine int32_ord_sort