MAKE_LOC_NODES_NUMERATION.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	make_loc_nodes_numeration (nnloc, local_n_num, nrcv, no
	Makes local numeration vector.

Function/Subroutine Documentation

make_loc_nodes_numeration()

subroutine make_loc_nodes_numeration	(	integer*4	nnloc,
		integer*4, dimension(nnloc), intent(inout)	local_n_num,
		integer*4	nrcv,
			no
	)

Makes local numeration vector.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	nnloc	number of local nodes
[in,out]	local_n_num	local node numbering
[in]	nrcv	number of nodes to receive
[in]	node_rcv	list of nodes to receive

Definition at line 29 of file MAKE_LOC_NODES_NUMERATION.f90.

 
      implicit none
 
      integer*4 :: nnloc, nrcv
      integer*4 :: i,j
 
      integer*4, dimension(nnloc) :: copy_n_num
      integer*4, dimension(nrcv) :: node_rcv
      integer*4, dimension(nnloc), intent(inout) :: local_n_num
      
      do i = 1, nrcv
        do j = 1, nnloc
            if(node_rcv(i) .eq. local_n_num(j)) local_n_num(j) = 0
        enddo
      enddo
      
      i = 1
      do j = 1, nnloc
         if(local_n_num(j) .ne. 0) then 
                  copy_n_num(i) = local_n_num(j) 
                  i = i + 1
         endif
      enddo
      
      copy_n_num(nnloc - nrcv + 1 : nnloc) = node_rcv
      local_n_num = copy_n_num      
      

Referenced by make_spx_grid_with_loc_numeration().

Here is the caller graph for this function: