sort_sign: remove module subroutines when inappropriate

Author: jvdp1

src/stdlib_sorting_ord_sort.fypp

@@ -84,7 +84,7 @@ contains
 #:for sname, signt, signoppt in SIGN_NAME_TYPE
 #:for k1, t1 in IRS_KINDS_TYPES
 
- module subroutine ${k1}$_${sname}$_ord_sort( array, work )
+ subroutine ${k1}$_${sname}$_ord_sort( array, work )
 ! A translation to Fortran 2008, of the `"Rust" sort` algorithm found in
 ! `slice.rs`
 ! https://github.com/rust-lang/rust/blob/90eb44a5897c39e3dff9c7e48e3973671dcd9496/src/liballoc/slice.rs#L2159
@@ -443,7 +443,7 @@ contains
 
 
 #:for sname, signt, signoppt in SIGN_NAME_TYPE
- module subroutine char_${sname}$_ord_sort( array, work )
+ subroutine char_${sname}$_ord_sort( array, work )
 ! A translation to Fortran 2008, of the `"Rust" sort` algorithm found in
 ! `slice.rs`
 ! https://github.com/rust-lang/rust/blob/90eb44a5897c39e3dff9c7e48e3973671dcd9496/src/liballoc/slice.rs#L2159

src/stdlib_sorting_sort.fypp

@@ -86,7 +86,7 @@ contains
 #:for sname, signt, signoppt in SIGN_NAME_TYPE
 #:for k1, t1 in IRS_KINDS_TYPES
 
- pure module subroutine ${k1}$_${sname}$_sort( array )
+ pure subroutine ${k1}$_${sname}$_sort( array )
 ! `${k1}$_sort( array )` sorts the input `ARRAY` of type `${t1}$`
 ! using a hybrid sort based on the `introsort` of David Musser. As with
 ! `introsort`, `${k1}$_sort( array )` is an unstable hybrid comparison
@@ -274,7 +274,7 @@ contains
 
 
 #:for sname, signt, signoppt in SIGN_NAME_TYPE
- pure module subroutine char_${sname}$_sort( array )
+ pure subroutine char_${sname}$_sort( array )
 ! `char_sort( array )` sorts the input `ARRAY` of type `CHARACTER(*)`
 ! using a hybrid sort based on the `introsort` of David Musser. As with
 ! `introsort`, `char_sort( array )` is an unstable hybrid comparison