The TELEMAC-MASCARET system  trunk
Functions/Subroutines
voisin31.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine voisin31 (IFABOR, NELEM, NELMAX, IELM, IKLE, SIZIKL, NPOIN, NBOR, NPTFR, LIHBOR, KLOG, INDPU, IKLESTR, NELEB2)
 

Function/Subroutine Documentation

◆ voisin31()

subroutine voisin31 ( integer, dimension(nelmax,4), intent(inout)  IFABOR,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
integer, intent(in)  IELM,
integer, dimension(sizikl,4), intent(in)  IKLE,
integer, intent(in)  SIZIKL,
integer, intent(in)  NPOIN,
integer, dimension(nptfr), intent(in)  NBOR,
integer, intent(in)  NPTFR,
integer, dimension(*), intent(in)  LIHBOR,
integer, intent(in)  KLOG,
integer, dimension(*), intent(in)  INDPU,
integer, dimension(neleb2,3), intent(in)  IKLESTR,
integer, intent(in)  NELEB2 
)
Parameters
[in]ielmIELM 31: tetrahedra 51: PRISMS CUT INTO TETRAHEDRA
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]INDPUIf not 0, interface point in parallel
[in]IKLESTRConnectivity table of boundary triangles
[in]KLOGConvention for solid boundary
[in]LIHBORType of boundary conditions on depth
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELEB2Number of boundary triangles (oversized)
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]SIZIKLFirst dimension of ikle
[in]nptfrIELM 31: tetrahedra 51: PRISMS CUT INTO TETRAHEDRA
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]INDPUIf not 0, interface point in parallel
[in]IKLESTRConnectivity table of boundary triangles
[in]KLOGConvention for solid boundary
[in]LIHBORType of boundary conditions on depth
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELEB2Number of boundary triangles (oversized)
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]SIZIKLFirst dimension of ikle
[in]nelemIELM 31: tetrahedra 51: PRISMS CUT INTO TETRAHEDRA
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]INDPUIf not 0, interface point in parallel
[in]IKLESTRConnectivity table of boundary triangles
[in]KLOGConvention for solid boundary
[in]LIHBORType of boundary conditions on depth
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELEB2Number of boundary triangles (oversized)
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]SIZIKLFirst dimension of ikle
[in]nelmaxIELM 31: tetrahedra 51: PRISMS CUT INTO TETRAHEDRA
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]INDPUIf not 0, interface point in parallel
[in]IKLESTRConnectivity table of boundary triangles
[in]KLOGConvention for solid boundary
[in]LIHBORType of boundary conditions on depth
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELEB2Number of boundary triangles (oversized)
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]SIZIKLFirst dimension of ikle
[in]npoinIELM 31: tetrahedra 51: PRISMS CUT INTO TETRAHEDRA
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]INDPUIf not 0, interface point in parallel
[in]IKLESTRConnectivity table of boundary triangles
[in]KLOGConvention for solid boundary
[in]LIHBORType of boundary conditions on depth
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELEB2Number of boundary triangles (oversized)
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]SIZIKLFirst dimension of ikle
[in]siziklIELM 31: tetrahedra 51: PRISMS CUT INTO TETRAHEDRA
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]INDPUIf not 0, interface point in parallel
[in]IKLESTRConnectivity table of boundary triangles
[in]KLOGConvention for solid boundary
[in]LIHBORType of boundary conditions on depth
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELEB2Number of boundary triangles (oversized)
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]SIZIKLFirst dimension of ikle
[in]klogIELM 31: tetrahedra 51: PRISMS CUT INTO TETRAHEDRA
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]INDPUIf not 0, interface point in parallel
[in]IKLESTRConnectivity table of boundary triangles
[in]KLOGConvention for solid boundary
[in]LIHBORType of boundary conditions on depth
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELEB2Number of boundary triangles (oversized)
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]SIZIKLFirst dimension of ikle

Definition at line 8 of file voisin31.f.

+ Here is the caller graph for this function: