|
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