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

Go to the source code of this file.

Functions/Subroutines

subroutine mer41 (X, XA1, XA2, XA3, XA4, XA5, XA6, XA7, XA8, XA9, XA10, XA11, XA12, XA13, XA14, XA15, IKLE1, IKLE2, IKLE3, IKLE4, IKLE5, IKLE6, NELEM, NELMAX, NPOIN, LV)
 

Function/Subroutine Documentation

◆ mer41()

subroutine mer41 ( double precision, dimension(npoin), intent(inout)  X,
double precision, dimension(nelmax), intent(in)  XA1,
double precision, dimension(nelmax), intent(in)  XA2,
double precision, dimension(nelmax), intent(in)  XA3,
double precision, dimension(nelmax), intent(in)  XA4,
double precision, dimension(nelmax), intent(in)  XA5,
double precision, dimension(nelmax), intent(in)  XA6,
double precision, dimension(nelmax), intent(in)  XA7,
double precision, dimension(nelmax), intent(in)  XA8,
double precision, dimension(nelmax), intent(in)  XA9,
double precision, dimension(nelmax), intent(in)  XA10,
double precision, dimension(nelmax), intent(in)  XA11,
double precision, dimension(nelmax), intent(in)  XA12,
double precision, dimension(nelmax), intent(in)  XA13,
double precision, dimension(nelmax), intent(in)  XA14,
double precision, dimension(nelmax), intent(in)  XA15,
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,
integer, intent(in)  NPOIN,
integer, intent(in)  LV 
)
Parameters
[in]npoinIKLE1 First points of prisms
[in]IKLE2Second points of prisms
[in]IKLE3Third points of prisms
[in]IKLE4Fouth points of prisms
[in]IKLE5Fifth points of prisms
[in]IKLE6Sixth points of prisms
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA10Off-diagonal term
[in]XA11Off-diagonal term
[in]XA12Off-diagonal term
[in]XA13Off-diagonal term
[in]XA14Off-diagonal term
[in]XA15Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term
[in]XA7Off-diagonal term
[in]XA8Off-diagonal term
[in]XA9Off-diagonal term
[in]nelemIKLE1 First points of prisms
[in]IKLE2Second points of prisms
[in]IKLE3Third points of prisms
[in]IKLE4Fouth points of prisms
[in]IKLE5Fifth points of prisms
[in]IKLE6Sixth points of prisms
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA10Off-diagonal term
[in]XA11Off-diagonal term
[in]XA12Off-diagonal term
[in]XA13Off-diagonal term
[in]XA14Off-diagonal term
[in]XA15Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term
[in]XA7Off-diagonal term
[in]XA8Off-diagonal term
[in]XA9Off-diagonal term
[in]nelmaxIKLE1 First points of prisms
[in]IKLE2Second points of prisms
[in]IKLE3Third points of prisms
[in]IKLE4Fouth points of prisms
[in]IKLE5Fifth points of prisms
[in]IKLE6Sixth points of prisms
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA10Off-diagonal term
[in]XA11Off-diagonal term
[in]XA12Off-diagonal term
[in]XA13Off-diagonal term
[in]XA14Off-diagonal term
[in]XA15Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term
[in]XA7Off-diagonal term
[in]XA8Off-diagonal term
[in]XA9Off-diagonal term
[in]lvIKLE1 First points of prisms
[in]IKLE2Second points of prisms
[in]IKLE3Third points of prisms
[in]IKLE4Fouth points of prisms
[in]IKLE5Fifth points of prisms
[in]IKLE6Sixth points of prisms
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA10Off-diagonal term
[in]XA11Off-diagonal term
[in]XA12Off-diagonal term
[in]XA13Off-diagonal term
[in]XA14Off-diagonal term
[in]XA15Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term
[in]XA7Off-diagonal term
[in]XA8Off-diagonal term
[in]XA9Off-diagonal term

Definition at line 11 of file mer41.f.

+ Here is the caller graph for this function: