The TELEMAC-MASCARET system  trunk
mt04pp.f File Reference

Go to the source code of this file.

## Functions/Subroutines

subroutine mt04pp (T, XM, XMUL, SU, SV, SW, U, V, X, Y, Z, SURFAC, IKLE, NELEM, NELMAX, FORMUL)

## ◆ mt04pp()

 subroutine mt04pp ( double precision, dimension(nelmax,6), intent(inout) T, double precision, dimension(nelmax,30), intent(inout) XM, 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(nelmax,6), intent(in) X, double precision, dimension(nelmax,6), intent(in) Y, double precision, dimension(*), intent(in) Z, double precision, dimension(nelmax), intent(in) SURFAC, integer, dimension(nelmax,6), intent(in) IKLE, integer, intent(in) NELEM, integer, intent(in) NELMAX, character(len=16), intent(in) FORMUL )
Parameters
 [in] nelem FORMUL Formula describing the resulting matrix [in] IKLE Connectivity table. [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SU Structure of functions u [in] SV Structure of functions v [in] SW Structure of functions w [in] SURFAC Area of 2d elements [in,out] T Work array for element by element diagonal [in] U Function used in the formula [in] V Function used in the formula [in] X Abscissae of points, per element [in] Y Ordinates of points, per element [in] Z Elevations of points, still per points !!! [in,out] XM Off-diagonal terms [in] XMUL Coefficient for multiplication [in] nelmax FORMUL Formula describing the resulting matrix [in] IKLE Connectivity table. [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SU Structure of functions u [in] SV Structure of functions v [in] SW Structure of functions w [in] SURFAC Area of 2d elements [in,out] T Work array for element by element diagonal [in] U Function used in the formula [in] V Function used in the formula [in] X Abscissae of points, per element [in] Y Ordinates of points, per element [in] Z Elevations of points, still per points !!! [in,out] XM Off-diagonal terms [in] XMUL Coefficient for multiplication

Definition at line 7 of file mt04pp.f.

Here is the caller graph for this function: