Apply suggestions from code review

fortran-lang · Jul 9, 2024 · 01faf83 · 01faf83
1 parent 3cf4711
commit 01faf83
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 7 deletions.
diff --git a/doc/specs/stdlib_sorting.md b/doc/specs/stdlib_sorting.md
@@ -160,7 +160,6 @@ housekeeping it has slower runtime performance than `ORD_SORT`.
 provided as optional `work` and `iwork` arguments or allocated
 internally on the stack.
 
-
 #### The `SORT_INDEX` subroutine
 
 The `SORT` and `ORD_SORT` subroutines can sort rank 1 isolated

diff --git a/src/stdlib_sorting.fypp b/src/stdlib_sorting.fypp
@@ -15,8 +15,6 @@
     & + BITSET_TYPES_ALT_NAME
 #:set IR_INDEX_TYPES_ALT_NAME = INT_TYPES_ALT_NAME + REAL_TYPES_ALT_NAME
 
-
-
 !! Licensing:
 !!
 !! This file is subject both to the Fortran Standard Library license, and
@@ -578,7 +576,6 @@ module stdlib_sorting
 
     end interface sort
 
-
     interface sort_adj
 !! Version: experimental
 !!
@@ -664,7 +661,6 @@ contains
             ${ti}$, intent(out), optional            :: iwork(0:)
             logical, intent(in), optional             :: reverse
 
-
         integer(int_index) :: array_size, i
 
         array_size = size(array, kind=int_index)
@@ -683,8 +679,6 @@ contains
 
         call sort_adj(array, index, work, iwork, reverse)
 
-
-
         end subroutine ${name1}$_sort_index_${namei}$
 
     #:endfor