GET_ELEM_FROM_FACE.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	get_elem_from_face (nb_nz_el, list_el, v1, v2, v3, ie)
	Find element index from verteces number.

Function/Subroutine Documentation

get_elem_from_face()

subroutine get_elem_from_face	(	integer*4	nb_nz_el,
		integer*4, dimension(0:nb_nz_el)	list_el,
		integer*4	v1,
		integer*4	v2,
		integer*4	v3,
		integer*4	ie
	)

Find element index from verteces number.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	nb_nz_el	number of element
[in]	list_el	vector containing spectral node repetition
[in]	v1	node index of first vertex of the element (quad)
[in]	v2	node index of second vertex of the element (quad)
[in]	v3	node index of third vertex of the element (quad)
[out]	ie	element index

Definition at line 30 of file GET_ELEM_FROM_FACE.f90.

      
      
      implicit none
      
      integer*4 :: nb_nz_el,v1,v2,v3,ie
      integer*4 :: i,j,k
 
      integer*4, dimension(0:nb_nz_el) :: list_el
      
      ie = 0
      
      do i = list_el(v1 -1),list_el(v1) -1
         do j = list_el(v2 -1),list_el(v2) -1
            do k = list_el(v3 -1),list_el(v3) -1
            
               if ((list_el(i).eq.list_el(j)).and.(list_el(j).eq.list_el(k))) ie = list_el(i)
               
            enddo
         enddo
      enddo
      
      return
      

Referenced by make_spx_con_loc_bound().

Here is the caller graph for this function: