sort_index: add fypp variable for code simplifications

Author: jvdp1

src/common.fypp

@@ -3,7 +3,7 @@
 #! Real kinds to be considered during templating
 #:set REAL_KINDS = ["sp", "dp", "qp"]
 
-#! Real types to be considere during templating
+#! Real types to be considered during templating
 #:set REAL_TYPES = ["real({})".format(k) for k in REAL_KINDS]
 
 #! Collected (kind, type) tuples for real types
@@ -12,7 +12,7 @@
 #! Complex kinds to be considered during templating
 #:set CMPLX_KINDS = ["sp", "dp", "qp"]
 
-#! Complex types to be considere during templating
+#! Complex types to be considered during templating
 #:set CMPLX_TYPES = ["complex({})".format(k) for k in CMPLX_KINDS]
 
 #! Collected (kind, type) tuples for complex types
@@ -21,12 +21,21 @@
 #! Integer kinds to be considered during templating
 #:set INT_KINDS = ["int8", "int16", "int32", "int64"]
 
-#! Integer types to be considere during templating
+#! Integer types to be considered during templating
 #:set INT_TYPES = ["integer({})".format(k) for k in INT_KINDS]
 
 #! Collected (kind, type) tuples for integer types
 #:set INT_KINDS_TYPES = list(zip(INT_KINDS, INT_TYPES))
 
+#! Derived type string_type
+#:set STRING_KINDS = ["string_type"]
+
+#! String types to be considered during templating
+#:set STRING_TYPES = ["type({})".format(k) for k in STRING_KINDS]
+
+#! Collected (kind, type) tuples for string derived types
+#:set STRING_KINDS_TYPES = list(zip(STRING_KINDS, STRING_TYPES))
+
 
 #! Whether Fortran 90 compatible code should be generated
 #:set VERSION90 = defined('VERSION90')

src/stdlib_sorting.fypp

@@ -1,5 +1,5 @@
 #:include "common.fypp"
-#:set IR_KINDS_TYPES = INT_KINDS_TYPES + REAL_KINDS_TYPES
+#:set IR_KINDS_TYPES = INT_KINDS_TYPES + REAL_KINDS_TYPES + STRING_KINDS_TYPES
 
 !! Licensing:
 !!
@@ -434,7 +434,7 @@ module stdlib_sorting
 !! non-decreasing sort, but if the optional argument `REVERSE` is present
 !! with a value of `.TRUE.` the indices correspond to a non-increasing sort.
 
-#:for k1, t1 in IR_KINDS_TYPES
+#:for k1, t1 in IRS_KINDS_TYPES
         module subroutine ${k1}$_sort_index( array, index, work, iwork, &
             reverse )
 !! Version: experimental
@@ -467,21 +467,6 @@ module stdlib_sorting
             logical, intent(in), optional                      :: reverse
         end subroutine char_sort_index
 
-        module subroutine string_sort_index( array, index, work, iwork, &
-            reverse )
-!! Version: experimental
-!!
-!! `string_sort_index( array )` sorts an input `ARRAY` of type `STRING_TYPE`
-!! using a hybrid sort based on the `'Rust" sort` algorithm found in `slice.rs`
-!! and returns the sorted `ARRAY` and an array `INDEX of indices in the
-!! order that would sort the input `ARRAY` in the desired direction.
-            type(string_type), intent(inout)           :: array(0:)
-            integer(int_size), intent(inout)           :: index(0:)
-            type(string_type), intent(inout), optional :: work(0:)
-            integer(int_size), intent(inout), optional :: iwork(0:)
-            logical, intent(in), optional              :: reverse
-        end subroutine string_sort_index
-
     end interface sort_index