minor style fixes

Author: milancurcic

src/stdlib_linalg.fypp

@@ -73,11 +73,11 @@ module stdlib_linalg
  !! Computes outer product of two vectors, returning a matrix
  !! ([Specification](../page/specs/stdlib_linalg.html#description_3))
  #:for k1, t1 in RCI_KINDS_TYPES
- module function outer_product_${t1[0]}$${k1}$(u,v) result(res)
- ${t1}$, intent(in) :: u(:), v(:)
- ${t1}$ :: res(size(u),size(v))
- integer :: col
- end function outer_product_${t1[0]}$${k1}$
+  module function outer_product_${t1[0]}$${k1}$(u, v) result(res)
+  ${t1}$, intent(in) :: u(:), v(:)
+  ${t1}$ :: res(size(u),size(v))
+  integer :: col
+  end function outer_product_${t1[0]}$${k1}$
  #:endfor
  end interface outer_product
 

src/stdlib_linalg_outer_product.fypp

@@ -6,15 +6,15 @@ submodule (stdlib_linalg) stdlib_linalg_outer_product
 
 contains
 
-  #:for k1, t1 in RCI_KINDS_TYPES
-  module function outer_product_${t1[0]}$${k1}$(u,v) result(res)
-  ${t1}$, intent(in) :: u(:), v(:)
-  ${t1}$ :: res(size(u),size(v))
-  integer :: col
-  do col = 1, size(v)
-  res(:,col) = v(col) * u
-  end do
-  end function outer_product_${t1[0]}$${k1}$
-  #:endfor
+ #:for k1, t1 in RCI_KINDS_TYPES
+ module function outer_product_${t1[0]}$${k1}$(u, v) result(res)
+ ${t1}$, intent(in) :: u(:), v(:)
+ ${t1}$ :: res(size(u),size(v))
+ integer :: col
+ do col = 1, size(v)
+ res(:,col) = v(col) * u
+ end do
+ end function outer_product_${t1[0]}$${k1}$
+ #:endfor
 
 end submodule