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

Go to the source code of this file.

Functions/Subroutines

subroutine voisin (IFABOR, NELEM, NELMAX, IELM, IKLE, SIZIKL, NPOIN, NACHB, NBOR, NPTFR, IADR, NVOIS)
 

Function/Subroutine Documentation

◆ voisin()

subroutine voisin ( integer, dimension(nelmax,*), intent(inout)  IFABOR,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
integer, intent(in)  IELM,
integer, dimension(sizikl,*), intent(in)  IKLE,
integer, intent(in)  SIZIKL,
integer, intent(in)  NPOIN,
integer, dimension(nbmaxnshare,nptir), intent(in)  NACHB,
integer, dimension(nptfr), intent(in)  NBOR,
integer, intent(in)  NPTFR,
integer, dimension(npoin), intent(inout)  IADR,
integer, dimension(npoin), intent(inout)  NVOIS 
)
Parameters
[in]nptfr[in, out] IADR Work array
[in]IELM11: triangles 21: QUADRILATERALS
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]NACHBSub-domains neighbours of interface points in parallel
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[out]NVOISNumber of neighbours of points
[in]SIZIKLFirst dimension of ikle
[in]sizikl[in, out] IADR Work array
[in]IELM11: triangles 21: QUADRILATERALS
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]NACHBSub-domains neighbours of interface points in parallel
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[out]NVOISNumber of neighbours of points
[in]SIZIKLFirst dimension of ikle
[in]nelem[in, out] IADR Work array
[in]IELM11: triangles 21: QUADRILATERALS
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]NACHBSub-domains neighbours of interface points in parallel
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[out]NVOISNumber of neighbours of points
[in]SIZIKLFirst dimension of ikle
[in]nelmax[in, out] IADR Work array
[in]IELM11: triangles 21: QUADRILATERALS
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]NACHBSub-domains neighbours of interface points in parallel
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[out]NVOISNumber of neighbours of points
[in]SIZIKLFirst dimension of ikle
[in]ielm[in, out] IADR Work array
[in]IELM11: triangles 21: QUADRILATERALS
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]NACHBSub-domains neighbours of interface points in parallel
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[out]NVOISNumber of neighbours of points
[in]SIZIKLFirst dimension of ikle
[in]npoin[in, out] IADR Work array
[in]IELM11: triangles 21: QUADRILATERALS
[in]IFABORElements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[in]NACHBSub-domains neighbours of interface points in parallel
[in]NBORGlobal number of boundary points
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[out]NVOISNumber of neighbours of points
[in]SIZIKLFirst dimension of ikle

Definition at line 8 of file voisin.f.

+ Here is the caller graph for this function: