|
1 |
| -#! Integer kinds to be considered during templating |
2 |
| -#:set INT_KINDS = ["int8", "int16", "int32", "int64"] |
3 |
| - |
4 |
| -#! Real kinds to be considered during templating |
5 |
| -#:set REAL_KINDS = ["sp", "dp", "qp"] |
| 1 | +#:include "common.fypp" |
6 | 2 |
|
7 | 3 | !! Licensing:
|
8 | 4 | !!
|
@@ -88,7 +84,7 @@ module stdlib_sorting
|
88 | 84 | !!
|
89 | 85 | !! `SORT_INDEX` is a modification of `ORD_SORT` so that in addition to
|
90 | 86 | !! sorting the input array, it returns the indices that map to a
|
91 |
| -!! stable sort of the original array. These indices are intended to be |
| 87 | +!! stable sort of the original array. These indices are |
92 | 88 | !! intended to be used to sort data that is correlated with the input
|
93 | 89 | !! array, e.g., different arrays in a database, different columns of a
|
94 | 90 | !! rank 2 array, different elements of a derived type. It is less
|
@@ -132,10 +128,10 @@ module stdlib_sorting
|
132 | 128 | log(1.6180339887_dp) ) )
|
133 | 129 |
|
134 | 130 | type run_type
|
135 |
| -! Version: experimental |
136 |
| -! |
137 |
| -! Used to pass state around in a stack among helper functions for the |
138 |
| -! `ORD_SORT` and `SORT_INDEX` algorithms |
| 131 | +!! Version: experimental |
| 132 | +!! |
| 133 | +!! Used to pass state around in a stack among helper functions for the |
| 134 | +!! `ORD_SORT` and `SORT_INDEX` algorithms |
139 | 135 | integer(int_size) :: base = 0
|
140 | 136 | integer(int_size) :: len = 0
|
141 | 137 | end type run_type
|
|
0 commit comments