move swap bitset within same fypp loop as for integers and reals

Author: jalvesz

src/stdlib_math.fypp

@@ -5,6 +5,7 @@
 module stdlib_math
     use stdlib_kinds, only: int8, int16, int32, int64, sp, dp, xdp, qp
     use stdlib_optval, only: optval
+    use stdlib_bitsets, only: bitset_64, bitset_large
 
     implicit none
     private
@@ -526,7 +527,7 @@ contains
 
     #:endfor
 
-    #:for k1, t1 in INT_KINDS_TYPES + REAL_KINDS_TYPES
+    #:for k1, t1 in INT_KINDS_TYPES + REAL_KINDS_TYPES + BITSET_KINDS_TYPES
     elemental subroutine swap_${k1}$(lhs, rhs)
         ${t1}$, intent(inout) :: lhs, rhs
         ${t1}$ :: temp
@@ -562,15 +563,5 @@ contains
         type(string_type) :: temp
         temp = lhs ; lhs = rhs ; rhs = temp
     end subroutine
-
-    #:for k1, t1 in BITSET_KINDS_TYPES
-    elemental subroutine swap_${k1}$(lhs,rhs)
-        use stdlib_bitsets
-        ${t1}$, intent(inout) :: lhs, rhs
-        ${t1}$ :: temp
-        temp = lhs ; lhs = rhs ; rhs = temp
-    end subroutine
-
-    #:endfor
 
 end module stdlib_math