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

Go to the source code of this file.

Functions/Subroutines

subroutine eleb3d (IKLE3, NBOR, NELBOR, IKLBOR, NELEB, NELEBX, NULONE, NELEM2, NPOIN2, NPLAN, NETAGE, NPTFR)
 

Function/Subroutine Documentation

◆ eleb3d()

subroutine eleb3d ( integer, dimension(nelem2,netage,6), intent(inout)  IKLE3,
integer, dimension(nptfr*nplan), intent(inout)  NBOR,
integer, dimension(nelebx), intent(inout)  NELBOR,
integer, dimension(nelebx,4), intent(inout)  IKLBOR,
integer, intent(inout)  NELEB,
integer, intent(in)  NELEBX,
integer, dimension(nelebx,4), intent(inout)  NULONE,
integer, intent(in)  NELEM2,
integer, intent(in)  NPOIN2,
integer, intent(in)  NPLAN,
integer, intent(in)  NETAGE,
integer, intent(in)  NPTFR 
)
Parameters
[in]nelem2IKLBOR Connectivity table of boundary elements
[out]IKLE3Connectivity table in 3d
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEBNumber of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEM2Number of elements in 2d
[in]NETAGENumber of planes - 1
[in]NPLANNumber of planes
[in]NPOIN2Number of points in 2d
[in]NPTFRNumber of boundary points
[in]NULONEGoes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. !!!!! HERE IN 3D !!!!!! WITH PRISMS, A CONDITION IS THAT THE FIRST NPTFR VALUES OF MESH3DNULONE ARE EQUAL TO MESH2DNULONE (SEE CALL TO STOSEG41 IN INBIEF)
[in]npoin2IKLBOR Connectivity table of boundary elements
[out]IKLE3Connectivity table in 3d
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEBNumber of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEM2Number of elements in 2d
[in]NETAGENumber of planes - 1
[in]NPLANNumber of planes
[in]NPOIN2Number of points in 2d
[in]NPTFRNumber of boundary points
[in]NULONEGoes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. !!!!! HERE IN 3D !!!!!! WITH PRISMS, A CONDITION IS THAT THE FIRST NPTFR VALUES OF MESH3DNULONE ARE EQUAL TO MESH2DNULONE (SEE CALL TO STOSEG41 IN INBIEF)
[in]nplanIKLBOR Connectivity table of boundary elements
[out]IKLE3Connectivity table in 3d
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEBNumber of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEM2Number of elements in 2d
[in]NETAGENumber of planes - 1
[in]NPLANNumber of planes
[in]NPOIN2Number of points in 2d
[in]NPTFRNumber of boundary points
[in]NULONEGoes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. !!!!! HERE IN 3D !!!!!! WITH PRISMS, A CONDITION IS THAT THE FIRST NPTFR VALUES OF MESH3DNULONE ARE EQUAL TO MESH2DNULONE (SEE CALL TO STOSEG41 IN INBIEF)
[in]netageIKLBOR Connectivity table of boundary elements
[out]IKLE3Connectivity table in 3d
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEBNumber of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEM2Number of elements in 2d
[in]NETAGENumber of planes - 1
[in]NPLANNumber of planes
[in]NPOIN2Number of points in 2d
[in]NPTFRNumber of boundary points
[in]NULONEGoes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. !!!!! HERE IN 3D !!!!!! WITH PRISMS, A CONDITION IS THAT THE FIRST NPTFR VALUES OF MESH3DNULONE ARE EQUAL TO MESH2DNULONE (SEE CALL TO STOSEG41 IN INBIEF)
[in]nptfrIKLBOR Connectivity table of boundary elements
[out]IKLE3Connectivity table in 3d
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEBNumber of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEM2Number of elements in 2d
[in]NETAGENumber of planes - 1
[in]NPLANNumber of planes
[in]NPOIN2Number of points in 2d
[in]NPTFRNumber of boundary points
[in]NULONEGoes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. !!!!! HERE IN 3D !!!!!! WITH PRISMS, A CONDITION IS THAT THE FIRST NPTFR VALUES OF MESH3DNULONE ARE EQUAL TO MESH2DNULONE (SEE CALL TO STOSEG41 IN INBIEF)

Definition at line 8 of file eleb3d.f.

+ Here is the caller graph for this function: