Draft: Add missing subroutines from libgridman

What is the new feature

Make libfortran-support available for libgridman.

How is it implemented

Sync modules with libgridman and add missing subroutines. See https://gitlab.dkrz.de/icon-libraries/libgridman/-/merge_requests/7

Mandatory steps before review

• Gitlab CI passes (Hint: use make format for linting)
• New feature is covered by additional unit tests
• Mark the merge request as ready by removing Draft:

Mandatory steps before merge

• Test coverage does not decrease
• Reviewed by a maintainer
• Incorporate review suggestions
• Prior to merging, please remove any boilerplate from the MR description, retaining only the Please describe your feature in a couple of words and describe important implementation details of the feature section to maintain
• Remember to edit the commit message and select the proper changelog category (feature/bugfix/other)

You are not supposed to merge this request by yourself, the maintainers of fortan-support take care of this action!

test/fortran/test_sort.f90

@@ -62,11 +62,24 @@ CONTAINS
     INTEGER :: to_sort(6) = (/144, 58, 4, 7, 10, 11/)
     CALL TAG_TEST("TEST_insertion_sort_int_1")
     CALL ASSERT_EQUAL(is_sorted_int(to_sort), .FALSE.)
-    CALL quicksort(to_sort)
+    CALL insertion_sort(to_sort)
     CALL TAG_TEST("TEST_insertion_sort_int_2")
     CALL ASSERT_EQUAL(is_sorted_int(to_sort), .TRUE.)
   END SUBROUTINE
 
+  SUBROUTINE TEST_insertion_sort_permutation_int
+    USE mo_util_sort
+    INTEGER :: to_sort(6) = (/144, 58, 4, 7, 10, 11/)
+    INTEGER :: idx_permutation(6) = (/1, 2, 3, 4, 5, 6/)
+    CALL TAG_TEST("TEST_insertion_sort_permutation_int_1")
+    CALL ASSERT_EQUAL(is_sorted_int(to_sort), .FALSE.)
+    CALL insertion_sort(to_sort, idx_permutation)
+    CALL TAG_TEST("TEST_insertion_sort_permutation_int_2")
+    CALL ASSERT_EQUAL(is_sorted_int(to_sort), .TRUE.)
+    CALL TAG_TEST("TEST_insertion_sort_permutation_int_3")
+    CALL ASSERT_EQUAL(has_same_values_int(idx_permutation, (/3, 4, 5, 6, 2, 1/)), .TRUE.)
+  END SUBROUTINE
+
   LOGICAL FUNCTION has_same_values_int(array, ref)
     INTEGER, INTENT(IN) :: array(:), ref(:)
     INTEGER :: i