Go to the source code of this file.
Functions/Subroutines | |
| subroutine | vc04tt (XMUL, SU, SV, SW, U, V, W, F, H, X, Y, Z, IKLE1, IKLE2, IKLE3, IKLE4, NELEM, NELMAX, W1, W2, W3, W4, FORMUL, SPECAD, NPOIN2, NELEM2) |
Function/Subroutine Documentation
◆ vc04tt()
| subroutine vc04tt | ( | double precision, intent(in) | XMUL, |
| type(bief_obj), intent(in) | SU, | ||
| type(bief_obj), intent(in) | SV, | ||
| type(bief_obj), intent(in) | SW, | ||
| double precision, dimension(*), intent(in) | U, | ||
| double precision, dimension(*), intent(in) | V, | ||
| double precision, dimension(*), intent(in) | W, | ||
| double precision, dimension(*), intent(in) | F, | ||
| double precision, dimension(*), intent(in) | H, | ||
| 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, | ||
| logical, intent(in) | SPECAD, | ||
| integer, intent(in) | NPOIN2, | ||
| integer, intent(in) | NELEM2 | ||
| ) |
- Parameters
-
[in] nelem FORMUL String with formula of vector [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] NELEM2 Number of 2d elements (case specad) [in] NELMAX Maximum number of elements [in] SPECAD If yes, special advection field, see above [in] SU Bief_obj structure of u [in] SV Bief_obj structure of v [in] SW Bief_obj structure of w [in] U Function used in the vector formula [in] V Function used in the vector formula [in] W Function used in the vector formula [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] Y Ordinates of points in the mesh [in] XMUL Multiplication coefficient [in] Z Elevations of points [in] nelmax FORMUL String with formula of vector [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] NELEM2 Number of 2d elements (case specad) [in] NELMAX Maximum number of elements [in] SPECAD If yes, special advection field, see above [in] SU Bief_obj structure of u [in] SV Bief_obj structure of v [in] SW Bief_obj structure of w [in] U Function used in the vector formula [in] V Function used in the vector formula [in] W Function used in the vector formula [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] Y Ordinates of points in the mesh [in] XMUL Multiplication coefficient [in] Z Elevations of points [in] nelem2 FORMUL String with formula of vector [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] NELEM2 Number of 2d elements (case specad) [in] NELMAX Maximum number of elements [in] SPECAD If yes, special advection field, see above [in] SU Bief_obj structure of u [in] SV Bief_obj structure of v [in] SW Bief_obj structure of w [in] U Function used in the vector formula [in] V Function used in the vector formula [in] W Function used in the vector formula [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] Y Ordinates of points in the mesh [in] XMUL Multiplication coefficient [in] Z Elevations of points [in] npoin2 FORMUL String with formula of vector [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] NELEM2 Number of 2d elements (case specad) [in] NELMAX Maximum number of elements [in] SPECAD If yes, special advection field, see above [in] SU Bief_obj structure of u [in] SV Bief_obj structure of v [in] SW Bief_obj structure of w [in] U Function used in the vector formula [in] V Function used in the vector formula [in] W Function used in the vector formula [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] Y Ordinates of points in the mesh [in] XMUL Multiplication coefficient [in] Z Elevations of points
Definition at line 9 of file vc04tt.f.
Here is the caller graph for this function: