The TELEMAC-MASCARET system  trunk
mt14tt.f File Reference

Go to the source code of this file.

## Functions/Subroutines

subroutine mt14tt (T, XM, LEGO, XMUL, SW, W, H, X, Y, IKLE, NELEM, NELMAX, NPLAN, NPOIN2)

## ◆ mt14tt()

 subroutine mt14tt ( double precision, dimension(nelmax,4), intent(inout) T, double precision, dimension(12,nelmax), intent(inout) XM, logical, intent(in) LEGO, double precision, intent(in) XMUL, type(bief_obj), intent(in) SW, double precision, dimension(*), intent(in) W, double precision, dimension(nelmax,4), intent(in) H, double precision, dimension(*), intent(in) X, double precision, dimension(*), intent(in) Y, integer, dimension(nelmax,4), intent(in) IKLE, integer, intent(in) NELEM, integer, intent(in) NELMAX, integer, intent(in) NPLAN, integer, intent(in) NPOIN2 )
Parameters
 [in] nelem H Function used in the formula [in] IKLE Connectivity table [in] LEGO Logical. if yes result assembled. [in] NELEM Number of elements [in] NELEM2 Number of triangles in the underlying 2d mesh [in] NELMAX Maximum number of elements [in] NPLAN Number of planes in the mesh [in] NPOIN2 Number of points in the underlying 2d mesh [in] SW Bief_obj structure of w [in,out] T Work array for element by element diagonal [in] W Function used in the formula [in] X Abscissae of points in the mesh [in] Y Ordinates of points in the mesh [in,out] XM Off-diagonal terms [in] XMUL Coefficient for multiplication [in] nelmax H Function used in the formula [in] IKLE Connectivity table [in] LEGO Logical. if yes result assembled. [in] NELEM Number of elements [in] NELEM2 Number of triangles in the underlying 2d mesh [in] NELMAX Maximum number of elements [in] NPLAN Number of planes in the mesh [in] NPOIN2 Number of points in the underlying 2d mesh [in] SW Bief_obj structure of w [in,out] T Work array for element by element diagonal [in] W Function used in the formula [in] X Abscissae of points in the mesh [in] Y Ordinates of points in the mesh [in,out] XM Off-diagonal terms [in] XMUL Coefficient for multiplication [in] nplan H Function used in the formula [in] IKLE Connectivity table [in] LEGO Logical. if yes result assembled. [in] NELEM Number of elements [in] NELEM2 Number of triangles in the underlying 2d mesh [in] NELMAX Maximum number of elements [in] NPLAN Number of planes in the mesh [in] NPOIN2 Number of points in the underlying 2d mesh [in] SW Bief_obj structure of w [in,out] T Work array for element by element diagonal [in] W Function used in the formula [in] X Abscissae of points in the mesh [in] Y Ordinates of points in the mesh [in,out] XM Off-diagonal terms [in] XMUL Coefficient for multiplication [in] npoin2 H Function used in the formula [in] IKLE Connectivity table [in] LEGO Logical. if yes result assembled. [in] NELEM Number of elements [in] NELEM2 Number of triangles in the underlying 2d mesh [in] NELMAX Maximum number of elements [in] NPLAN Number of planes in the mesh [in] NPOIN2 Number of points in the underlying 2d mesh [in] SW Bief_obj structure of w [in,out] T Work array for element by element diagonal [in] W Function used in the formula [in] X Abscissae of points in the mesh [in] Y Ordinates of points in the mesh [in,out] XM Off-diagonal terms [in] XMUL Coefficient for multiplication

Definition at line 8 of file mt14tt.f.

Here is the caller graph for this function: