cleaning

Author: jvdp1

src/stdlib_sorting.fypp

@@ -13,7 +13,7 @@
 #! This approach allows us to have the same code for all input types.
 #:set IRSCB_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME + STRING_TYPES_ALT_NAME + CHAR_TYPES_ALT_NAME &
     & + BITSET_TYPES_ALT_NAME
-#:set IRC_INDEX_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME
+#:set IR_INDEX_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME
 
 
 
@@ -523,7 +523,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 ki, ti, namei in IRC_INDEX_TYPES_ALT_NAME
+#:for ti, tii, namei in IR_INDEX_TYPES_ALT_NAME
     #:for t1, t2, name1 in IRSCB_TYPES_ALT_NAME
         module subroutine ${name1}$_${namei}$_sort_adj( array, index, work, iwork, &
             reverse )

src/stdlib_sorting_sort_adj.fypp

@@ -10,7 +10,7 @@
 #! This approach allows us to have the same code for all input types.
 #:set IRSCB_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME + STRING_TYPES_ALT_NAME + CHAR_TYPES_ALT_NAME &
     & + BITSET_TYPES_ALT_NAME
-#:set IRC_INDEX_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME
+#:set IR_INDEX_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME
 
 !! Licensing:
 !!
@@ -67,7 +67,7 @@ submodule(stdlib_sorting) stdlib_sorting_sort_adj
 
 contains
 
-#:for ki, ti, tii, namei in IRC_INDEX_TYPES_ALT_NAME
+#:for ki, ti, tii, namei in IR_INDEX_TYPES_ALT_NAME
   #:for t1, t2, t3, name1 in IRSCB_TYPES_ALT_NAME
 
     module subroutine ${name1}$_${namei}$_sort_adj( array, index, work, iwork, reverse )