The TELEMAC-MASCARET system  trunk
vc13cc.f File Reference

Go to the source code of this file.

## Functions/Subroutines

subroutine vc13cc (XMUL, SF, F, XEL, YEL, IKLE1, IKLE2, IKLE3, IKLE4, IKLE5, IKLE6, NELEM, NELMAX, W1, W2, W3, W4, W5, W6, ICOORD)

## ◆ vc13cc()

 subroutine vc13cc ( double precision, intent(in) XMUL, type(bief_obj), intent(in) SF, double precision, dimension(*), intent(in) F, double precision, dimension(nelmax,*), intent(in) XEL, double precision, dimension(nelmax,*), intent(in) YEL, 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] ICOORD 1: derivative along x, 2: along y [in] IKLE1 First point of triangles [in] IKLE2 Second point of triangles [in] IKLE3 Third point of triangles [in] IKLE4 Fourth point of triangles (quadratic) [in] IKLE5 Fifth point of triangles (quadratic) [in] IKLE6 Sixth point of triangles (quadratic) [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SF Bief_obj structure of f [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] ICOORD 1: derivative along x, 2: along y [in] IKLE1 First point of triangles [in] IKLE2 Second point of triangles [in] IKLE3 Third point of triangles [in] IKLE4 Fourth point of triangles (quadratic) [in] IKLE5 Fifth point of triangles (quadratic) [in] IKLE6 Sixth point of triangles (quadratic) [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SF Bief_obj structure of f [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] ICOORD 1: derivative along x, 2: along y [in] IKLE1 First point of triangles [in] IKLE2 Second point of triangles [in] IKLE3 Third point of triangles [in] IKLE4 Fourth point of triangles (quadratic) [in] IKLE5 Fifth point of triangles (quadratic) [in] IKLE6 Sixth point of triangles (quadratic) [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SF Bief_obj structure of f [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 vc13cc.f. Here is the caller graph for this function: