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

Go to the source code of this file.

Functions/Subroutines

subroutine stoseg (IFABOR, NELEM, NELMAX, NELMAX2, IELM, IKLE, NBOR, NPTFR, GLOSEG, MAXSEG, ELTSEG, ORISEG, NSEG, NELBOR, NULONE, KNOLG, IKLBOR, NELEBX, NELEB)
 

Function/Subroutine Documentation

◆ stoseg()

subroutine stoseg ( integer, dimension(nelmax2,*), intent(in)  IFABOR,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
integer, intent(in)  NELMAX2,
integer, intent(in)  IELM,
integer, dimension(nelmax,*), intent(in)  IKLE,
integer, dimension(nptfr), intent(in)  NBOR,
integer, intent(in)  NPTFR,
integer, dimension(maxseg,2), intent(inout)  GLOSEG,
integer, intent(in)  MAXSEG,
integer, dimension(nelmax,*), intent(inout)  ELTSEG,
integer, dimension(nelmax,3), intent(inout)  ORISEG,
integer, intent(in)  NSEG,
integer, dimension(*), intent(in)  NELBOR,
integer, dimension(*), intent(in)  NULONE,
integer, dimension(*), intent(in)  KNOLG,
integer, dimension(nelebx,2), intent(in)  IKLBOR,
integer, intent(in)  NELEBX,
integer, intent(in)  NELEB 
)
Parameters
[in]nelmax[out] ELTSEG Segments of every triangle.
[out]GLOSEGGlobal numbers of points of segments.
[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]KNOLGGlobal number of a local point in parallel
[out]MAXSEGMaximum number of segments
[in]NBORGlobal numbers of boundary points.
[in]NELBORNumber of element containing segment k of THE BOUNDARY.
[in]NELEMNumber of elements in the mesh
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPTFRNumber of boundary points.
[out]NSEGNumber of segments of the mesh.
[in]NULONELocal number of boundary points in a boundary ELEMENT.
[out]ORISEGOrientation of segments of every triangle.
[in]nelmax2[out] ELTSEG Segments of every triangle.
[out]GLOSEGGlobal numbers of points of segments.
[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]KNOLGGlobal number of a local point in parallel
[out]MAXSEGMaximum number of segments
[in]NBORGlobal numbers of boundary points.
[in]NELBORNumber of element containing segment k of THE BOUNDARY.
[in]NELEMNumber of elements in the mesh
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPTFRNumber of boundary points.
[out]NSEGNumber of segments of the mesh.
[in]NULONELocal number of boundary points in a boundary ELEMENT.
[out]ORISEGOrientation of segments of every triangle.
[in]nptfr[out] ELTSEG Segments of every triangle.
[out]GLOSEGGlobal numbers of points of segments.
[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]KNOLGGlobal number of a local point in parallel
[out]MAXSEGMaximum number of segments
[in]NBORGlobal numbers of boundary points.
[in]NELBORNumber of element containing segment k of THE BOUNDARY.
[in]NELEMNumber of elements in the mesh
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPTFRNumber of boundary points.
[out]NSEGNumber of segments of the mesh.
[in]NULONELocal number of boundary points in a boundary ELEMENT.
[out]ORISEGOrientation of segments of every triangle.
[in]nseg[out] ELTSEG Segments of every triangle.
[out]GLOSEGGlobal numbers of points of segments.
[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]KNOLGGlobal number of a local point in parallel
[out]MAXSEGMaximum number of segments
[in]NBORGlobal numbers of boundary points.
[in]NELBORNumber of element containing segment k of THE BOUNDARY.
[in]NELEMNumber of elements in the mesh
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPTFRNumber of boundary points.
[out]NSEGNumber of segments of the mesh.
[in]NULONELocal number of boundary points in a boundary ELEMENT.
[out]ORISEGOrientation of segments of every triangle.
[in]maxseg[out] ELTSEG Segments of every triangle.
[out]GLOSEGGlobal numbers of points of segments.
[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]KNOLGGlobal number of a local point in parallel
[out]MAXSEGMaximum number of segments
[in]NBORGlobal numbers of boundary points.
[in]NELBORNumber of element containing segment k of THE BOUNDARY.
[in]NELEMNumber of elements in the mesh
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPTFRNumber of boundary points.
[out]NSEGNumber of segments of the mesh.
[in]NULONELocal number of boundary points in a boundary ELEMENT.
[out]ORISEGOrientation of segments of every triangle.
[in]ielm[out] ELTSEG Segments of every triangle.
[out]GLOSEGGlobal numbers of points of segments.
[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]KNOLGGlobal number of a local point in parallel
[out]MAXSEGMaximum number of segments
[in]NBORGlobal numbers of boundary points.
[in]NELBORNumber of element containing segment k of THE BOUNDARY.
[in]NELEMNumber of elements in the mesh
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPTFRNumber of boundary points.
[out]NSEGNumber of segments of the mesh.
[in]NULONELocal number of boundary points in a boundary ELEMENT.
[out]ORISEGOrientation of segments of every triangle.

Definition at line 9 of file stoseg.f.

+ Here is the caller graph for this function: