The TELEMAC-MASCARET system  trunk
vc13pp2.f File Reference

Go to the source code of this file.

## Functions/Subroutines

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

## ◆ vc13pp2()

 subroutine vc13pp2 ( double precision, intent(in) XMUL, type(bief_obj), intent(in) SF, double precision, dimension(*), intent(in) F, 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] FORMUL See at the end of the subroutine [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] 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] X Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh, per element [in] Z Z-coordinates of points in the mesh, per point ! [in] nelmax F Function used in the vector formula [in] FORMUL See at the end of the subroutine [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] 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] X Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh, per element [in] Z Z-coordinates of points in the mesh, per point ! [in] icoord F Function used in the vector formula [in] FORMUL See at the end of the subroutine [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] 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] X Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh, per element [in] Z Z-coordinates of points in the mesh, per point !

Definition at line 9 of file vc13pp2.f. Here is the caller graph for this function: