simplifies code by adding fypp variables

Author: jvdp1

src/stdlib_sorting.fypp

@@ -1,4 +1,5 @@
 #:include "common.fypp"
+#:set IR_KINDS_TYPES = INT_KINDS_TYPES + REAL_KINDS_TYPES
 
 !! Licensing:
 !!
@@ -346,29 +347,18 @@ module stdlib_sorting
 !! sorted data, having O(N) performance on uniformly non-increasing or
 !! non-decreasing data.
 
-#:for k1 in INT_KINDS
+#:for k1, t1 in IR_KINDS_TYPES
         module subroutine ${k1}$_ord_sort( array, work )
 !! Version: experimental
 !!
-!! `${k1}$_ord_sort( array )` sorts the input `ARRAY` of type `INTEGER(${k1}$)`
+!! `${k1}$_ord_sort( array )` sorts the input `ARRAY` of type `${t1}$`
 !! using a hybrid sort based on the `'Rust" sort` algorithm found in `slice.rs`
-            integer(${k1}$), intent(inout)           :: array(0:)
-            integer(${k1}$), intent(inout), optional :: work(0:)
+            ${t1}$, intent(inout)           :: array(0:)
+            ${t1}$, intent(inout), optional :: work(0:)
         end subroutine ${k1}$_ord_sort
 
 #:endfor
 
-#:for k1 in REAL_KINDS
-        module subroutine ${k1}$_ord_sort( array, work )
- !! Version: experimental
-!!
-!! `${k1}$_ord_sort( array )` sorts the input `ARRAY` of type `REAL(${k1}$)`
-!! using a hybrid sort based on the `'Rust" sort` algorithm found in `slice.rs`
-            real(${k1}$), intent(inout)           :: array(0:)
-            real(${k1}$), intent(inout), optional :: work(0:)
-        end subroutine ${k1}$_ord_sort
-
-#:endfor
         module subroutine char_ord_sort( array, work )
 !! Version: experimental
 !!