Skip to content

Commit 9612c71

Browse files
adenchfijvdp1
andauthored
Apply suggestions from code review
Adding spaces to = signs Co-authored-by: Jeremie Vandenplas <[email protected]>
1 parent dc814f6 commit 9612c71

File tree

2 files changed

+5
-5
lines changed

2 files changed

+5
-5
lines changed

src/stdlib_linalg_kronecker.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -17,8 +17,8 @@ contains
1717
maxM2 = size(B, dim=1)
1818
maxN2 = size(B, dim=2)
1919

20-
do n1=1, maxN1
21-
do m1=1, maxM1
20+
do n1 = 1, maxN1
21+
do m1 = 1, maxM1
2222
! We use the numpy.kron convention for ordering of the matrix elements
2323
C((m1-1)*maxM2+1:m1*maxM2, (n1-1)*maxN2+1:n1*maxN2) = A(m1, n1) * B(:,:)
2424
end do

test/linalg/test_linalg.fypp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -566,16 +566,16 @@ contains
566566
subroutine test_kronecker_product_rsp(error)
567567
!> Error handling
568568
type(error_type), allocatable, intent(out) :: error
569-
integer, parameter :: m1=1, n1=2, m2=2, n2=3
569+
integer, parameter :: m1 = 1, n1 = 2, m2 = 2, n2 = 3
570570
real(sp), parameter :: tol = 1.e-6
571571

572572
real(sp) :: A(m1,n1), B(m2,n2)
573573
real(sp) :: C(m1*m2,n1*n2), expected(m1*m2,n1*n2), diff(m1*m2,n1*n2)
574574

575575
integer :: i,j
576576

577-
do j=1, n1
578-
do i=1, m1
577+
do j = 1, n1
578+
do i = 1, m1
579579
A(i,j) = i*j ! A = [1, 2]
580580
end do
581581
end do

0 commit comments

Comments
 (0)