The TELEMAC-MASCARET system  trunk
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)

## ◆ 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] nelem2 IKLBOR Connectivity table of boundary elements [out] IKLE3 Connectivity table in 3d [in] NBOR Global number of boundary points in 2d [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS [in] NELEBX Maximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR [in] NELEM2 Number of elements in 2d [in] NETAGE Number of planes - 1 [in] NPLAN Number of planes [in] NPOIN2 Number of points in 2d [in] NPTFR Number of boundary points [in] NULONE Goes 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] npoin2 IKLBOR Connectivity table of boundary elements [out] IKLE3 Connectivity table in 3d [in] NBOR Global number of boundary points in 2d [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS [in] NELEBX Maximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR [in] NELEM2 Number of elements in 2d [in] NETAGE Number of planes - 1 [in] NPLAN Number of planes [in] NPOIN2 Number of points in 2d [in] NPTFR Number of boundary points [in] NULONE Goes 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] nplan IKLBOR Connectivity table of boundary elements [out] IKLE3 Connectivity table in 3d [in] NBOR Global number of boundary points in 2d [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS [in] NELEBX Maximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR [in] NELEM2 Number of elements in 2d [in] NETAGE Number of planes - 1 [in] NPLAN Number of planes [in] NPOIN2 Number of points in 2d [in] NPTFR Number of boundary points [in] NULONE Goes 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] netage IKLBOR Connectivity table of boundary elements [out] IKLE3 Connectivity table in 3d [in] NBOR Global number of boundary points in 2d [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS [in] NELEBX Maximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR [in] NELEM2 Number of elements in 2d [in] NETAGE Number of planes - 1 [in] NPLAN Number of planes [in] NPOIN2 Number of points in 2d [in] NPTFR Number of boundary points [in] NULONE Goes 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] nptfr IKLBOR Connectivity table of boundary elements [out] IKLE3 Connectivity table in 3d [in] NBOR Global number of boundary points in 2d [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements AT THE BEGINNING : IN 2D, AT THE EXIT, IN 3D NUMBER OF BOUNDARY ELEMENTS [in] NELEBX Maximum number of boundary elements USED AS FIRST DIMENSION OF IKLBOR [in] NELEM2 Number of elements in 2d [in] NETAGE Number of planes - 1 [in] NPLAN Number of planes [in] NPOIN2 Number of points in 2d [in] NPTFR Number of boundary points [in] NULONE Goes 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: