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

Go to the source code of this file.

Functions/Subroutines

subroutine normab (XNEBOR, YNEBOR, XSGBOR, YSGBOR, DISBOR, SURFAC, NELMAX, NELBOR, NULONE, LGSEG, NPTFR, MESH, XEL, YEL, IKLBOR, NELEBX, NELEB)
 

Function/Subroutine Documentation

◆ normab()

subroutine normab ( double precision, dimension(nptfr,2), intent(inout)  XNEBOR,
double precision, dimension(nptfr,2), intent(inout)  YNEBOR,
double precision, dimension(nelebx,4), intent(inout)  XSGBOR,
double precision, dimension(nelebx,4), intent(inout)  YSGBOR,
double precision, dimension(nptfr), intent(inout)  DISBOR,
double precision, dimension(nelmax), intent(in)  SURFAC,
integer, intent(in)  NELMAX,
integer, dimension(nelebx), intent(in)  NELBOR,
integer, dimension(nelebx,2), intent(in)  NULONE,
double precision, dimension(nelebx), intent(inout)  LGSEG,
integer, intent(in)  NPTFR,
type(bief_mesh), intent(inout)  MESH,
double precision, dimension(nelmax,3), intent(in)  XEL,
double precision, dimension(nelmax,3), intent(in)  YEL,
integer, dimension(nelebx,2), intent(in)  IKLBOR,
integer, intent(in)  NELEBX,
integer, intent(in)  NELEB 
)
Parameters
[in]nptfr[out] DISBOR Distance from boundary point to closer INNER POINT
[in]IKLBORConnectivity table for boundary elements
[out]LGSEGLength of boundary segments
[in]MESHMesh structure
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NULONENumber of first point of segment in adjacent element
[in]NELMAXNumber of elements
[in]NPTFRNumber of boundary points
[in]SURFACArea of triangles
[in]XELAbscissae of points in the mesh, per element
[out]XNEBORComponant along x of vector normal to point
[out]XSGBORComponant along x of vector normal to segment
[in]YELOrdinates of points in the mesh, per element
[out]XNEBORComponant along y of vector normal to point
[out]YSGBORComponant along y of vector normal to segment
[in]nelmax[out] DISBOR Distance from boundary point to closer INNER POINT
[in]IKLBORConnectivity table for boundary elements
[out]LGSEGLength of boundary segments
[in]MESHMesh structure
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NULONENumber of first point of segment in adjacent element
[in]NELMAXNumber of elements
[in]NPTFRNumber of boundary points
[in]SURFACArea of triangles
[in]XELAbscissae of points in the mesh, per element
[out]XNEBORComponant along x of vector normal to point
[out]XSGBORComponant along x of vector normal to segment
[in]YELOrdinates of points in the mesh, per element
[out]XNEBORComponant along y of vector normal to point
[out]YSGBORComponant along y of vector normal to segment
[in]nelebx[out] DISBOR Distance from boundary point to closer INNER POINT
[in]IKLBORConnectivity table for boundary elements
[out]LGSEGLength of boundary segments
[in]MESHMesh structure
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NULONENumber of first point of segment in adjacent element
[in]NELMAXNumber of elements
[in]NPTFRNumber of boundary points
[in]SURFACArea of triangles
[in]XELAbscissae of points in the mesh, per element
[out]XNEBORComponant along x of vector normal to point
[out]XSGBORComponant along x of vector normal to segment
[in]YELOrdinates of points in the mesh, per element
[out]XNEBORComponant along y of vector normal to point
[out]YSGBORComponant along y of vector normal to segment
[in]neleb[out] DISBOR Distance from boundary point to closer INNER POINT
[in]IKLBORConnectivity table for boundary elements
[out]LGSEGLength of boundary segments
[in]MESHMesh structure
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NULONENumber of first point of segment in adjacent element
[in]NELMAXNumber of elements
[in]NPTFRNumber of boundary points
[in]SURFACArea of triangles
[in]XELAbscissae of points in the mesh, per element
[out]XNEBORComponant along x of vector normal to point
[out]XSGBORComponant along x of vector normal to segment
[in]YELOrdinates of points in the mesh, per element
[out]XNEBORComponant along y of vector normal to point
[out]YSGBORComponant along y of vector normal to segment

Definition at line 8 of file normab.f.

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