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

Go to the source code of this file.

Functions/Subroutines

subroutine eleb3dt (IKLE3, NBOR, NELBOR, NELBOR2D, IKLBOR, NELEB, NELEBX, NULONE, NELEM2, NPOIN2, NPLAN, NETAGE, NPTFR, IKLBOR2D, NELEB2D, NELEBX2D)
 

Function/Subroutine Documentation

◆ eleb3dt()

subroutine eleb3dt ( integer, dimension(nelem2,3,netage,4), intent(inout)  IKLE3,
integer, dimension(nptfr*nplan), intent(inout)  NBOR,
integer, dimension(nelebx), intent(inout)  NELBOR,
integer, dimension(nelebx2d), intent(in)  NELBOR2D,
integer, dimension(nelebx,3), intent(inout)  IKLBOR,
integer, intent(inout)  NELEB,
integer, intent(in)  NELEBX,
integer, dimension(nelebx,3), intent(inout)  NULONE,
integer, intent(in)  NELEM2,
integer, intent(in)  NPOIN2,
integer, intent(in)  NPLAN,
integer, intent(in)  NETAGE,
integer, intent(in)  NPTFR,
integer, dimension(nelebx2d,2), intent(in)  IKLBOR2D,
integer, intent(in)  NELEB2D,
integer, intent(in)  NELEBX2D 
)
Parameters
[in]nelem2[out] IKLBOR Connectivity table for boundary elements HERE DECLARED AS IKLBOR(NELEBX,3) BUT FILLED AS IKLBOR(NELEB2D,2,NETAGE,3) 2 IS THE NUMBER OF TETRAHEDRONS FORMING A VERTICAL RECTANGLE IN THE BORDER. 3 IS THE NUMBER OF POINTS IN EVERY TRIANGLE FORMING THIS RECTANGLE
[out]IKLBOR2DConnectivity table for boundary elements in 2d
[out]IKLE3Connectivity table in 3d, for tetrahedrons HERE DECLARED AS IKLE3(NELEM2,3,NETAGE,4) 3 IS THE NUMBER OF TETRAHEDRONS PER PRISM (TETRAHEDRONS ARE NUMBERED ACCORDINGLY) 4 IS THE NUMBER OF POINTS IN A TETRAHEDRA.
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH3D).
[in]NELBOR2DFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH2D).
[in]NELEBNumber of boundary elements
[in]NELEB2DNumber of boundary elements of 2d mesh
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEBX2DMaximum number of boundary elements in 2d mesh
[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.
[in]npoin2[out] IKLBOR Connectivity table for boundary elements HERE DECLARED AS IKLBOR(NELEBX,3) BUT FILLED AS IKLBOR(NELEB2D,2,NETAGE,3) 2 IS THE NUMBER OF TETRAHEDRONS FORMING A VERTICAL RECTANGLE IN THE BORDER. 3 IS THE NUMBER OF POINTS IN EVERY TRIANGLE FORMING THIS RECTANGLE
[out]IKLBOR2DConnectivity table for boundary elements in 2d
[out]IKLE3Connectivity table in 3d, for tetrahedrons HERE DECLARED AS IKLE3(NELEM2,3,NETAGE,4) 3 IS THE NUMBER OF TETRAHEDRONS PER PRISM (TETRAHEDRONS ARE NUMBERED ACCORDINGLY) 4 IS THE NUMBER OF POINTS IN A TETRAHEDRA.
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH3D).
[in]NELBOR2DFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH2D).
[in]NELEBNumber of boundary elements
[in]NELEB2DNumber of boundary elements of 2d mesh
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEBX2DMaximum number of boundary elements in 2d mesh
[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.
[in]nplan[out] IKLBOR Connectivity table for boundary elements HERE DECLARED AS IKLBOR(NELEBX,3) BUT FILLED AS IKLBOR(NELEB2D,2,NETAGE,3) 2 IS THE NUMBER OF TETRAHEDRONS FORMING A VERTICAL RECTANGLE IN THE BORDER. 3 IS THE NUMBER OF POINTS IN EVERY TRIANGLE FORMING THIS RECTANGLE
[out]IKLBOR2DConnectivity table for boundary elements in 2d
[out]IKLE3Connectivity table in 3d, for tetrahedrons HERE DECLARED AS IKLE3(NELEM2,3,NETAGE,4) 3 IS THE NUMBER OF TETRAHEDRONS PER PRISM (TETRAHEDRONS ARE NUMBERED ACCORDINGLY) 4 IS THE NUMBER OF POINTS IN A TETRAHEDRA.
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH3D).
[in]NELBOR2DFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH2D).
[in]NELEBNumber of boundary elements
[in]NELEB2DNumber of boundary elements of 2d mesh
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEBX2DMaximum number of boundary elements in 2d mesh
[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.
[in]netage[out] IKLBOR Connectivity table for boundary elements HERE DECLARED AS IKLBOR(NELEBX,3) BUT FILLED AS IKLBOR(NELEB2D,2,NETAGE,3) 2 IS THE NUMBER OF TETRAHEDRONS FORMING A VERTICAL RECTANGLE IN THE BORDER. 3 IS THE NUMBER OF POINTS IN EVERY TRIANGLE FORMING THIS RECTANGLE
[out]IKLBOR2DConnectivity table for boundary elements in 2d
[out]IKLE3Connectivity table in 3d, for tetrahedrons HERE DECLARED AS IKLE3(NELEM2,3,NETAGE,4) 3 IS THE NUMBER OF TETRAHEDRONS PER PRISM (TETRAHEDRONS ARE NUMBERED ACCORDINGLY) 4 IS THE NUMBER OF POINTS IN A TETRAHEDRA.
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH3D).
[in]NELBOR2DFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH2D).
[in]NELEBNumber of boundary elements
[in]NELEB2DNumber of boundary elements of 2d mesh
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEBX2DMaximum number of boundary elements in 2d mesh
[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.
[in]nptfr[out] IKLBOR Connectivity table for boundary elements HERE DECLARED AS IKLBOR(NELEBX,3) BUT FILLED AS IKLBOR(NELEB2D,2,NETAGE,3) 2 IS THE NUMBER OF TETRAHEDRONS FORMING A VERTICAL RECTANGLE IN THE BORDER. 3 IS THE NUMBER OF POINTS IN EVERY TRIANGLE FORMING THIS RECTANGLE
[out]IKLBOR2DConnectivity table for boundary elements in 2d
[out]IKLE3Connectivity table in 3d, for tetrahedrons HERE DECLARED AS IKLE3(NELEM2,3,NETAGE,4) 3 IS THE NUMBER OF TETRAHEDRONS PER PRISM (TETRAHEDRONS ARE NUMBERED ACCORDINGLY) 4 IS THE NUMBER OF POINTS IN A TETRAHEDRA.
[in]NBORGlobal number of boundary points in 2d
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH3D).
[in]NELBOR2DFor the kth boundary edge, gives the corresponding ELEMENT (FROM MESH2D).
[in]NELEBNumber of boundary elements
[in]NELEB2DNumber of boundary elements of 2d mesh
[in]NELEBXMaximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR
[in]NELEBX2DMaximum number of boundary elements in 2d mesh
[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.

Definition at line 8 of file eleb3dt.f.

+ Here is the caller graph for this function: