The TELEMAC-MASCARET system  trunk
vc00tt.f File Reference

Go to the source code of this file.

## Functions/Subroutines

subroutine vc00tt (XMUL, X, Y, Z, IKLE1, IKLE2, IKLE3, IKLE4, NELEM, NELMAX, W1, W2, W3, W4, FORMUL, NPOIN2, NELEM2, IELM1)

## ◆ vc00tt()

 subroutine vc00tt ( double precision, intent(in) XMUL, double precision, dimension(*), intent(in) X, double precision, dimension(*), 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, 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, character(len=16), intent(in) FORMUL, integer, intent(in) NPOIN2, integer, intent(in) NELEM2, integer, intent(in) IELM1 )
Parameters
 [in] nelem FORMUL String with the formula describing the vector [in] IELM1 Type of element [in] IKLE1 First point of tetrahedra [in] IKLE2 Second point of tetrahedra [in] IKLE3 Third point of tetrahedra [in] IKLE4 Fourth point of tetrahedra [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN2 Number of points in the underlying 2d mesh [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 [in] X Abscissae of points in the mesh [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh [in] Z Elevations of points in the mesh [in] nelmax FORMUL String with the formula describing the vector [in] IELM1 Type of element [in] IKLE1 First point of tetrahedra [in] IKLE2 Second point of tetrahedra [in] IKLE3 Third point of tetrahedra [in] IKLE4 Fourth point of tetrahedra [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN2 Number of points in the underlying 2d mesh [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 [in] X Abscissae of points in the mesh [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh [in] Z Elevations of points in the mesh [in] npoin2 FORMUL String with the formula describing the vector [in] IELM1 Type of element [in] IKLE1 First point of tetrahedra [in] IKLE2 Second point of tetrahedra [in] IKLE3 Third point of tetrahedra [in] IKLE4 Fourth point of tetrahedra [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN2 Number of points in the underlying 2d mesh [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 [in] X Abscissae of points in the mesh [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh [in] Z Elevations of points in the mesh [in] nelem2 FORMUL String with the formula describing the vector [in] IELM1 Type of element [in] IKLE1 First point of tetrahedra [in] IKLE2 Second point of tetrahedra [in] IKLE3 Third point of tetrahedra [in] IKLE4 Fourth point of tetrahedra [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN2 Number of points in the underlying 2d mesh [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 [in] X Abscissae of points in the mesh [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh [in] Z Elevations of points in the mesh [in] ielm1 FORMUL String with the formula describing the vector [in] IELM1 Type of element [in] IKLE1 First point of tetrahedra [in] IKLE2 Second point of tetrahedra [in] IKLE3 Third point of tetrahedra [in] IKLE4 Fourth point of tetrahedra [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN2 Number of points in the underlying 2d mesh [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 [in] X Abscissae of points in the mesh [in] XMUL Multiplication coefficient [in] Y Ordinates of points in the mesh [in] Z Elevations of points in the mesh

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