Skip to content

Commit 01faf83

Browse files
authored
Apply suggestions from code review
1 parent 3cf4711 commit 01faf83

File tree

2 files changed

+0
-7
lines changed

2 files changed

+0
-7
lines changed

doc/specs/stdlib_sorting.md

-1
Original file line numberDiff line numberDiff line change
@@ -160,7 +160,6 @@ housekeeping it has slower runtime performance than `ORD_SORT`.
160160
provided as optional `work` and `iwork` arguments or allocated
161161
internally on the stack.
162162

163-
164163
#### The `SORT_INDEX` subroutine
165164

166165
The `SORT` and `ORD_SORT` subroutines can sort rank 1 isolated

src/stdlib_sorting.fypp

-6
Original file line numberDiff line numberDiff line change
@@ -15,8 +15,6 @@
1515
& + BITSET_TYPES_ALT_NAME
1616
#:set IR_INDEX_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME
1717

18-
19-
2018
!! Licensing:
2119
!!
2220
!! This file is subject both to the Fortran Standard Library license, and
@@ -578,7 +576,6 @@ module stdlib_sorting
578576

579577
end interface sort
580578

581-
582579
interface sort_adj
583580
!! Version: experimental
584581
!!
@@ -664,7 +661,6 @@ contains
664661
${ti}$, intent(out), optional :: iwork(0:)
665662
logical, intent(in), optional :: reverse
666663

667-
668664
integer(int_index) :: array_size, i
669665

670666
array_size = size(array, kind=int_index)
@@ -683,8 +679,6 @@ contains
683679

684680
call sort_adj(array, index, work, iwork, reverse)
685681

686-
687-
688682
end subroutine ${name1}$_sort_index_${namei}$
689683

690684
#:endfor

0 commit comments

Comments
 (0)