The TELEMAC-MASCARET system  trunk
Functions/Subroutines
vc13pp.f File Reference

Go to the source code of this file.

Functions/Subroutines

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

Function/Subroutine Documentation

◆ vc13pp()

subroutine vc13pp ( 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,
double precision, dimension(nelmax), intent(in)  SURFAC,
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,
character(len=16), intent(in)  FORMUL 
)
Parameters
[in]nelemF Function used in the vector formula
[in]FORMULSee at the end of the subroutine
[in]ICOORD1: derivative along x, 2: along y
[in]IKLE1First point of prisms
[in]IKLE2Second point of prisms
[in]IKLE3Third point of prisms
[in]IKLE4Fourth point of prisms
[in]IKLE5Fifth point of prisms
[in]IKLE6Sixth point of prisms
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]SFBief_obj structure of f
[in]SURFACArea of triangles
[out]W1Result in non assembled form
[out]W2Result in non assembled form
[out]W3Result in non assembled form
[out]W4Result in non assembled form
[out]W5Result in non assembled form
[out]W6Result in non assembled form
[in]XELAbscissae of points in the mesh, per element
[in]XMULMultiplication coefficient
[in]YELOrdinates of points in the mesh, per element
[in]nelmaxF Function used in the vector formula
[in]FORMULSee at the end of the subroutine
[in]ICOORD1: derivative along x, 2: along y
[in]IKLE1First point of prisms
[in]IKLE2Second point of prisms
[in]IKLE3Third point of prisms
[in]IKLE4Fourth point of prisms
[in]IKLE5Fifth point of prisms
[in]IKLE6Sixth point of prisms
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]SFBief_obj structure of f
[in]SURFACArea of triangles
[out]W1Result in non assembled form
[out]W2Result in non assembled form
[out]W3Result in non assembled form
[out]W4Result in non assembled form
[out]W5Result in non assembled form
[out]W6Result in non assembled form
[in]XELAbscissae of points in the mesh, per element
[in]XMULMultiplication coefficient
[in]YELOrdinates of points in the mesh, per element
[in]icoordF Function used in the vector formula
[in]FORMULSee at the end of the subroutine
[in]ICOORD1: derivative along x, 2: along y
[in]IKLE1First point of prisms
[in]IKLE2Second point of prisms
[in]IKLE3Third point of prisms
[in]IKLE4Fourth point of prisms
[in]IKLE5Fifth point of prisms
[in]IKLE6Sixth point of prisms
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]SFBief_obj structure of f
[in]SURFACArea of triangles
[out]W1Result in non assembled form
[out]W2Result in non assembled form
[out]W3Result in non assembled form
[out]W4Result in non assembled form
[out]W5Result in non assembled form
[out]W6Result in non assembled form
[in]XELAbscissae of points in the mesh, per element
[in]XMULMultiplication coefficient
[in]YELOrdinates of points in the mesh, per element

Definition at line 9 of file vc13pp.f.

+ Here is the caller graph for this function: