Merged some parentheses spacings and changed the numpy.kron reference to the Wikipedia reference.

Author: adenchfi

src/stdlib_linalg_kronecker.fypp

@@ -17,8 +17,9 @@ contains
       maxM2 = size(B, dim=1)
       maxN2 = size(B, dim=2)
 
-      do n1=1, maxN1
-         do m1=1, maxM1
+
+      do n1 = 1, maxN1
+         do m1 = 1, maxM1
             ! We use the Wikipedia convention for ordering of the matrix elements
 	    ! https://en.wikipedia.org/wiki/Kronecker_product
             C((m1-1)*maxM2+1:m1*maxM2, (n1-1)*maxN2+1:n1*maxN2) = A(m1, n1) * B(:,:)

test/linalg/test_linalg.fypp

@@ -566,22 +566,22 @@ contains
     subroutine test_kronecker_product_rsp(error) 
       !> Error handling
       type(error_type), allocatable, intent(out) :: error
-      integer, parameter :: m1=1, n1=2, m2=2, n2=3
+      integer, parameter :: m1 = 1, n1 = 2, m2 = 2, n2 = 3
       real(sp), parameter :: tol = 1.e-6
 
       real(sp) :: A(m1,n1), B(m2,n2)
       real(sp) :: C(m1*m2,n1*n2), expected(m1*m2,n1*n2), diff(m1*m2,n1*n2)
 
       integer :: i,j
 
-      do j=1, n1
-         do i=1, m1
+      do j = 1, n1
+         do i = 1, m1
             A(i,j) = i*j ! A = [1, 2]
          end do
       end do
 
-      do j=1, n2
-         do i=1, m2
+      do j = 1, n2
+         do i = 1, m2
             B(i,j) = i*j ! B = [[1, 2, 3], [2, 4, 6]]
          end do
       end do