GET_INDLOC_FROM_INDGLO.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	get_indloc_from_indglo (local_el, nel_loc, ie, ic)
	Returns local id from global id.

Function/Subroutine Documentation

get_indloc_from_indglo()

subroutine get_indloc_from_indglo	(	integer*4, dimension(nel_loc)	local_el,
		integer*4	nel_loc,
		integer*4	ie,
		integer*4	ic
	)

Returns local id from global id.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	local_el	local element numeration local_el(i) = global numeration of the i-th local element
[in]	nel_loc	number of local elements
[in]	ie	global id for the element
[out]	ic	local number for the element, 0 if the element is not present

Definition at line 29 of file GET_INDLOC_FROM_INDGLO.f90.

     
 
     implicit none
 
     integer*4 :: nel_loc, ie, ic, i
     integer*4, dimension(nel_loc) :: local_el
     
     do i = 1, nel_loc
        if(ie .eq. local_el(i))  then
           ic = i
           return
        endif   
       
     enddo
 
     ic = 0     
     return
    

Referenced by compute_energy_error(), compute_sdof_input(), find_monitor_position(), get_max_values(), make_dg_interface(), make_dg_loc_numeration(), make_extint_forces(), make_spx_con_loc_bound(), make_spx_loc_numeration(), make_system_position_lglnodes(), read_filemesh_loc(), read_system_position(), setup_dg4mpi(), setup_mpi_jump(), and write_output().

Here is the caller graph for this function: