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

Go to the source code of this file.

Functions/Subroutines

subroutine mer21 (X, XA1, XA2, XA3, XA4, XA5, XA6, IKLE1, IKLE2, IKLE3, IKLE4, NELEM, NELMAX, NPOIN, LV)
 

Function/Subroutine Documentation

◆ mer21()

subroutine mer21 ( 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,
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,
integer, intent(in)  NPOIN,
integer, intent(in)  LV 
)
Parameters
[in]npoinIKLE1 First points of quadrilaterals
[in]IKLE2Second points of quadrilaterals
[in]IKLE3Third points of quadrilaterals
[in]IKLE4Fourth points of quadrilaterals
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA1Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term
[in]nelemIKLE1 First points of quadrilaterals
[in]IKLE2Second points of quadrilaterals
[in]IKLE3Third points of quadrilaterals
[in]IKLE4Fourth points of quadrilaterals
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA1Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term
[in]nelmaxIKLE1 First points of quadrilaterals
[in]IKLE2Second points of quadrilaterals
[in]IKLE3Third points of quadrilaterals
[in]IKLE4Fourth points of quadrilaterals
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA1Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term
[in]lvIKLE1 First points of quadrilaterals
[in]IKLE2Second points of quadrilaterals
[in]IKLE3Third points of quadrilaterals
[in]IKLE4Fourth points of quadrilaterals
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]XResulting vector
[in]XA1Off-diagonal term
[in]XA2Off-diagonal term
[in]XA3Off-diagonal term
[in]XA4Off-diagonal term
[in]XA5Off-diagonal term
[in]XA6Off-diagonal term

Definition at line 8 of file mer21.f.

+ Here is the caller graph for this function: