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!

src/mo_util_sort.F90

@@ -44,6 +44,7 @@ MODULE mo_util_sort
   END INTERFACE swap
 
   INTERFACE insertion_sort
+    MODULE PROCEDURE insertion_sort_permutation_int
     MODULE PROCEDURE insertion_sort_int
   END INTERFACE insertion_sort
 
@@ -686,6 +687,28 @@ CONTAINS
 
   END SUBROUTINE quicksort_string
 
+  SUBROUTINE insertion_sort_permutation_int(a, permutation)
+    INTEGER, INTENT(INOUT)   :: a(:)
+    INTEGER, INTENT(INOUT)   :: permutation(:) !< (optional) permutation of indices
+
+    INTEGER :: t, h, t_p
+    INTEGER :: i, n
+
+    n = SIZE(a)
+
+    DO i = 2, n
+      t = a(i)
+      t_p = permutation(i)
+      DO h = i - 1, 1, -1
+        IF (t >= a(h)) EXIT
+        a(h + 1)         = a(h)
+        permutation(h+1) = permutation(h)
+      END DO
+      a(h + 1) = t
+      permutation(h + 1) = t_p
+    END DO
+  END SUBROUTINE insertion_sort_permutation_int
+
   SUBROUTINE insertion_sort_int(a)
     INTEGER, INTENT(INOUT) :: a(:)