The TELEMAC-MASCARET system  trunk
vc11pp.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine vc11pp (XMUL, SF, SG, F, G, X, Y, Z, IKLE1, IKLE2, IKLE3, IKLE4, IKLE5, IKLE6, NELEM, NELMAX, W1, W2, W3, W4, W5, W6, ICOORD)

◆ vc11pp()

 subroutine vc11pp ( double precision, intent(in) XMUL, type(bief_obj) SF, type(bief_obj) SG, double precision, dimension(*) F, double precision, dimension(*) G, double precision, dimension(nelmax,6), intent(in) X, double precision, dimension(nelmax,6), intent(in) Y, double precision, dimension(*), intent(in) Z, integer, dimension(nelmax), intent(in) IKLE1, integer, dimension(nelmax), intent(in) IKLE2, integer, dimension(nelmax), intent(in) IKLE3, integer, dimension(nelmax), intent(in) IKLE4, integer, dimension(nelmax), intent(in) IKLE5, integer, dimension(nelmax), intent(in) IKLE6, integer, intent(in) NELEM, integer, intent(in) NELMAX, double precision, dimension(nelmax), intent(inout) W1, double precision, dimension(nelmax), intent(inout) W2, double precision, dimension(nelmax), intent(inout) W3, double precision, dimension(nelmax), intent(inout) W4, double precision, dimension(nelmax), intent(inout) W5, double precision, dimension(nelmax), intent(inout) W6, integer, intent(in) ICOORD )
Parameters
 [in] nelem F Function used in the vector formula [in] G Function used in the vector formula [in] ICOORD 1: derivative along x, 2: along y [in] IKLE1 First point of prisms [in] IKLE2 Second point of prisms [in] IKLE3 Third point of prisms [in] IKLE4 Fourth point of prisms [in] IKLE5 Fifth point of prisms [in] IKLE6 Sixth point of prisms [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SF Bief_obj structure of f [in] SG Bief_obj structure of g [in] SURFAC Area of triangles [out] W1 Result in non assembled form [out] W2 Result in non assembled form [out] W3 Result in non assembled form [out] W4 Result in non assembled form [out] W5 Result in non assembled form [out] W6 Result in non assembled form [in] XEL Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] YEL Ordinates of points in the mesh, per element [in] nelmax F Function used in the vector formula [in] G Function used in the vector formula [in] ICOORD 1: derivative along x, 2: along y [in] IKLE1 First point of prisms [in] IKLE2 Second point of prisms [in] IKLE3 Third point of prisms [in] IKLE4 Fourth point of prisms [in] IKLE5 Fifth point of prisms [in] IKLE6 Sixth point of prisms [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SF Bief_obj structure of f [in] SG Bief_obj structure of g [in] SURFAC Area of triangles [out] W1 Result in non assembled form [out] W2 Result in non assembled form [out] W3 Result in non assembled form [out] W4 Result in non assembled form [out] W5 Result in non assembled form [out] W6 Result in non assembled form [in] XEL Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] YEL Ordinates of points in the mesh, per element [in] icoord F Function used in the vector formula [in] G Function used in the vector formula [in] ICOORD 1: derivative along x, 2: along y [in] IKLE1 First point of prisms [in] IKLE2 Second point of prisms [in] IKLE3 Third point of prisms [in] IKLE4 Fourth point of prisms [in] IKLE5 Fifth point of prisms [in] IKLE6 Sixth point of prisms [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SF Bief_obj structure of f [in] SG Bief_obj structure of g [in] SURFAC Area of triangles [out] W1 Result in non assembled form [out] W2 Result in non assembled form [out] W3 Result in non assembled form [out] W4 Result in non assembled form [out] W5 Result in non assembled form [out] W6 Result in non assembled form [in] XEL Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] YEL Ordinates of points in the mesh, per element

Definition at line 9 of file vc11pp.f.

Here is the caller graph for this function: