Searched refs:iv_rank (Results 1 – 2 of 2) sorted by relevance
13 integer, allocatable :: iv_rank(:) variable47 allocate (iv_rank(ntspts))69 deallocate (iv_rank)
1406 iv_rank(jj) = iv_node*iv_rankpernode 1412 & iv_rank(jj), ' on node', iv_node1416 if(iv_rank(jj) .lt.0 .or. iv_rank(jj) .ge. numpe) then 1417 write(*,*) 'WARNING: iv_rank(',jj,') is ', iv_rank(jj),1419 iv_rank(jj) = numpe-11423 if(myrank == iv_rank(jj)) then1444 if (myrank == iv_rank(jj)) then1796 if(myrank .eq. iv_rank(jj)) then 1813 if(myrank .eq. iv_rank(jj)) then