GET_FACE_DG.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	get_face_dg (faces, nel_dg_glo, ik, ind, face_found)
	Find the face (quad) of a DG element (hex)

Function/Subroutine Documentation

get_face_dg()

subroutine get_face_dg	(	integer*4, dimension(3,nel_dg_glo)	faces,
		integer*4	nel_dg_glo,
		integer*4	ik,
		integer*4	ind,
		integer*4	face_found
	)

Find the face (quad) of a DG element (hex)

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	faces	faces(1,i) = block id of the element faces(2,i) = element id faces(3,i) = face id
[in]	nel_dg_glo	number of dg elements
[in]	ik	element id to find
[in]	ind	face id to find
[out]	face_found	0 if not found, number of the face (from 1 to 6) if found

Definition at line 33 of file GET_FACE_DG.f90.

 
 
    implicit none
    
    integer*4 :: nel_dg_glo, ind, ik, face_found, i
 
    integer*4, dimension(3,nel_dg_glo) :: faces
    
    face_found = 0 
    do i = 1, nel_dg_glo
    
       if(faces(2,i) .eq. ik .and. faces(3,i) .eq. ind ) then
          face_found = i
          return
       endif
    enddo     
    
        
    

Referenced by make_dg_interface().

Here is the caller graph for this function: