Searched refs:num_pieces (Results 1 – 1 of 1) sorted by relevance
15 subroutine split_indices(total, num_pieces, ibeg, iend) argument19 integer :: num_pieces local20 integer :: ibeg(num_pieces), iend(num_pieces)23 itmp1 = total/num_pieces24 itmp2 = mod(total, num_pieces)31 do i = itmp2 + 1, num_pieces