typo

fstarpu_example_dgemm.f90

@@ -162,8 +162,8 @@ program fstarpu_example_dgemm
        do j=1,nb
          do l=1,kb
            A_local = A%blocks(i,l)%owner == comm_rank
-           B_local = B%blocks(i,l)%owner == comm_rank
-           C_local = C%blocks(l,j)%owner == comm_rank
+           B_local = B%blocks(l,j)%owner == comm_rank
+           C_local = C%blocks(i,j)%owner == comm_rank
            if ( (.not.super_prune.or.(C_local.or.l<=q.or.l<=p)).and.&
                 (.not.prune.or.(A_local.or.B_local.or.C_local))) then
              ! if (comm_rank.eq.0) write(*,*) "GEMM", b_col,b_row,b_aisle