Commit 81aa904b authored by Antoine Jego's avatar Antoine Jego
Browse files

fix pruning handles

parent 8301ebf0
......@@ -257,8 +257,8 @@ contains
call fstarpu_matrix_data_register( xij%h, 0, c_loc( xij%c(1,1) ), &
bs, bs, bs, c_sizeof(xij%c(1,1)) )
call fstarpu_mpi_data_register(xij%h, tag, xij%owner)
else if (.not.prune_handles.or.(.not.prune_row.or.comm_row.eq.mod(i,p)).or.&
(.not.prune_col.or.comm_col.eq.mod(j,q)) ) then
else if (.not.prune_handles.or.(prune_row.and.comm_row.eq.mod(i,p)).or.&
(prune_col.and.comm_col.eq.mod(j,q)) ) then
! write(*,*) comm_rank,"] ",xij%owner," owns ",cname,"_",i,j,"so it registers it with tag",tag
call fstarpu_matrix_data_register( xij%h, -1, c_null_ptr, &
bs, bs, bs, c_sizeof(alpha) )
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