33 integer*4 :: nnloc, nrcv
36 integer*4,
dimension(nnloc) :: copy_n_num
37 integer*4,
dimension(nrcv) :: node_rcv
38 integer*4,
dimension(nnloc),
intent(inout) :: local_n_num
42 if(node_rcv(i) .eq. local_n_num(j)) local_n_num(j) = 0
48 if(local_n_num(j) .ne. 0)
then
49 copy_n_num(i) = local_n_num(j)
54 copy_n_num(nnloc - nrcv + 1 : nnloc) = node_rcv
55 local_n_num = copy_n_num