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

Go to the source code of this file.

Functions/Subroutines

subroutine mv0606 (OP, X, DA, TYPDIA, XA, TYPEXT, Y, C, IKLE1, IKLE2, IKLE3, IKLE4, IKLE5, IKLE6, NPOIN, NELEM, NELMAX, W1, W2, W3, W4, W5, W6)
 

Function/Subroutine Documentation

◆ mv0606()

subroutine mv0606 ( character(len=8), intent(in)  OP,
double precision, dimension(*), intent(inout)  X,
double precision, dimension(*), intent(in)  DA,
character(len=1), intent(in)  TYPDIA,
double precision, dimension(nelmax,*), intent(in)  XA,
character(len=1), intent(in)  TYPEXT,
double precision, dimension(*), intent(in)  Y,
double precision, intent(in)  C,
integer, dimension(*), intent(in)  IKLE1,
integer, dimension(*), intent(in)  IKLE2,
integer, dimension(*), intent(in)  IKLE3,
integer, dimension(*), intent(in)  IKLE4,
integer, dimension(*), intent(in)  IKLE5,
integer, dimension(*), intent(in)  IKLE6,
integer, intent(in)  NPOIN,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
double precision, dimension(*), intent(inout)  W1,
double precision, dimension(*), intent(inout)  W2,
double precision, dimension(*), intent(inout)  W3,
double precision, dimension(*), intent(inout)  W4,
double precision, dimension(*), intent(inout)  W5,
double precision, dimension(*), intent(inout)  W6 
)
Parameters
[in]nelemC A given constant
[in]DAMatrix diagonal
[in]IKLE1First points of elements
[in]IKLE2Second points of elements
[in]IKLE3Third points of elements
[in]IKLE4Fourth points of elements
[in]IKLE5Fifth points of elements
[in]IKLE6Sixth points of elements
[in]NELEMNumber of elements
[in]NPOINNumber of linear points
[in]NPT2Number of quadratic points
[in]OPOperation to be done (see above)
[in]TYPDIAType of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]TYPEXTType of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in,out]W1Result in non assembled form
[in,out]W2Result in non assembled form
[in,out]W3Result in non assembled form
[in,out]W4Result in non assembled form
[in,out]W5Result in non assembled form
[in,out]W6Result in non assembled form
[in,out]XAResult in assembled form
[in]YVector used in the operation
[in]nelmaxC A given constant
[in]DAMatrix diagonal
[in]IKLE1First points of elements
[in]IKLE2Second points of elements
[in]IKLE3Third points of elements
[in]IKLE4Fourth points of elements
[in]IKLE5Fifth points of elements
[in]IKLE6Sixth points of elements
[in]NELEMNumber of elements
[in]NPOINNumber of linear points
[in]NPT2Number of quadratic points
[in]OPOperation to be done (see above)
[in]TYPDIAType of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]TYPEXTType of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in,out]W1Result in non assembled form
[in,out]W2Result in non assembled form
[in,out]W3Result in non assembled form
[in,out]W4Result in non assembled form
[in,out]W5Result in non assembled form
[in,out]W6Result in non assembled form
[in,out]XAResult in assembled form
[in]YVector used in the operation
[in]npoinC A given constant
[in]DAMatrix diagonal
[in]IKLE1First points of elements
[in]IKLE2Second points of elements
[in]IKLE3Third points of elements
[in]IKLE4Fourth points of elements
[in]IKLE5Fifth points of elements
[in]IKLE6Sixth points of elements
[in]NELEMNumber of elements
[in]NPOINNumber of linear points
[in]NPT2Number of quadratic points
[in]OPOperation to be done (see above)
[in]TYPDIAType of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO
[in]TYPEXTType of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO
[in,out]W1Result in non assembled form
[in,out]W2Result in non assembled form
[in,out]W3Result in non assembled form
[in,out]W4Result in non assembled form
[in,out]W5Result in non assembled form
[in,out]W6Result in non assembled form
[in,out]XAResult in assembled form
[in]YVector used in the operation

Definition at line 9 of file mv0606.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: