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

Go to the source code of this file.

Functions/Subroutines

subroutine stoseg51 (IFABOR, NELMAX, IELM, IKLE, NBOR, GLOSEG, MAXSEG, ELTSEG, ORISEG, NELBOR, NULONE, NELMAX2, NELEM2, NPTFR2, NPOIN2, NPLAN, KNOLG, NSEG2D, IKLBOR, NELEB, NELEBX)
 

Function/Subroutine Documentation

◆ stoseg51()

subroutine stoseg51 ( integer, dimension(nelmax2,*), intent(in)  IFABOR,
integer, intent(in)  NELMAX,
integer, intent(in)  IELM,
integer, dimension(nelmax,4), intent(in)  IKLE,
integer, dimension(nptfr2), intent(in)  NBOR,
integer, dimension(maxseg,2), intent(inout)  GLOSEG,
integer, intent(in)  MAXSEG,
integer, dimension(nelmax,6), intent(inout)  ELTSEG,
integer, dimension(nelmax,6), intent(inout)  ORISEG,
integer, dimension(nelebx), intent(in)  NELBOR,
integer, dimension(nelebx), intent(in)  NULONE,
integer, intent(in)  NELMAX2,
integer, intent(in)  NELEM2,
integer, intent(in)  NPTFR2,
integer, intent(in)  NPOIN2,
integer, intent(in)  NPLAN,
integer, dimension(*), intent(in)  KNOLG,
integer, intent(in)  NSEG2D,
integer, dimension(nelebx,2), intent(in)  IKLBOR,
integer, intent(in)  NELEB,
integer, intent(in)  NELEBX 
)
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]IKLBORConnectivity of boundary segments in 2d
[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]NELEBNumber of boundary elements in 2d.
[in]NELEBXMaximum number of boundary elements in 2d.
[in]NELEM2Number of elements in 2d
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPLANNumber of planes in the 3d mesh of prisms
[in]NPOIN2Number of points in 2d
[in]NPTFR2Number of boundary points in 2d
[in]NULONELocal number of boundary points in a boundary ELEMENT. HERE THE 3D NULONE IS PASSED THOUGH IT IS HERE USED AS THE 2D ONE. HENCE BOTH MUST BEGIN BY THE SAME BOUNDARY ELEMENTS OF THE LOWER PLANE.
[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]IKLBORConnectivity of boundary segments in 2d
[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]NELEBNumber of boundary elements in 2d.
[in]NELEBXMaximum number of boundary elements in 2d.
[in]NELEM2Number of elements in 2d
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPLANNumber of planes in the 3d mesh of prisms
[in]NPOIN2Number of points in 2d
[in]NPTFR2Number of boundary points in 2d
[in]NULONELocal number of boundary points in a boundary ELEMENT. HERE THE 3D NULONE IS PASSED THOUGH IT IS HERE USED AS THE 2D ONE. HENCE BOTH MUST BEGIN BY THE SAME BOUNDARY ELEMENTS OF THE LOWER PLANE.
[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]IKLBORConnectivity of boundary segments in 2d
[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]NELEBNumber of boundary elements in 2d.
[in]NELEBXMaximum number of boundary elements in 2d.
[in]NELEM2Number of elements in 2d
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPLANNumber of planes in the 3d mesh of prisms
[in]NPOIN2Number of points in 2d
[in]NPTFR2Number of boundary points in 2d
[in]NULONELocal number of boundary points in a boundary ELEMENT. HERE THE 3D NULONE IS PASSED THOUGH IT IS HERE USED AS THE 2D ONE. HENCE BOTH MUST BEGIN BY THE SAME BOUNDARY ELEMENTS OF THE LOWER PLANE.
[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]IKLBORConnectivity of boundary segments in 2d
[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]NELEBNumber of boundary elements in 2d.
[in]NELEBXMaximum number of boundary elements in 2d.
[in]NELEM2Number of elements in 2d
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPLANNumber of planes in the 3d mesh of prisms
[in]NPOIN2Number of points in 2d
[in]NPTFR2Number of boundary points in 2d
[in]NULONELocal number of boundary points in a boundary ELEMENT. HERE THE 3D NULONE IS PASSED THOUGH IT IS HERE USED AS THE 2D ONE. HENCE BOTH MUST BEGIN BY THE SAME BOUNDARY ELEMENTS OF THE LOWER PLANE.
[out]ORISEGOrientation of segments of every triangle.
[in]nelebx[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]IKLBORConnectivity of boundary segments in 2d
[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]NELEBNumber of boundary elements in 2d.
[in]NELEBXMaximum number of boundary elements in 2d.
[in]NELEM2Number of elements in 2d
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPLANNumber of planes in the 3d mesh of prisms
[in]NPOIN2Number of points in 2d
[in]NPTFR2Number of boundary points in 2d
[in]NULONELocal number of boundary points in a boundary ELEMENT. HERE THE 3D NULONE IS PASSED THOUGH IT IS HERE USED AS THE 2D ONE. HENCE BOTH MUST BEGIN BY THE SAME BOUNDARY ELEMENTS OF THE LOWER PLANE.
[out]ORISEGOrientation of segments of every triangle.
[in]neleb[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]IKLBORConnectivity of boundary segments in 2d
[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]NELEBNumber of boundary elements in 2d.
[in]NELEBXMaximum number of boundary elements in 2d.
[in]NELEM2Number of elements in 2d
[in]NELMAXMaximum number of elements in 3d
[in]NELMAX2Maximum number of elements in 2d
[in]NPLANNumber of planes in the 3d mesh of prisms
[in]NPOIN2Number of points in 2d
[in]NPTFR2Number of boundary points in 2d
[in]NULONELocal number of boundary points in a boundary ELEMENT. HERE THE 3D NULONE IS PASSED THOUGH IT IS HERE USED AS THE 2D ONE. HENCE BOTH MUST BEGIN BY THE SAME BOUNDARY ELEMENTS OF THE LOWER PLANE.
[out]ORISEGOrientation of segments of every triangle.

Definition at line 9 of file stoseg51.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: