Commit a387a84e authored by Antoine Jego's avatar Antoine Jego
Browse files

typo

parent 81aa904b
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment