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

Go to the source code of this file.

Functions/Subroutines

subroutine mv0404 (OP, X, DA, TYPDIA, XA12, XA13, XA14, XA21, XA23, XA24, XA31, XA32, XA34, XA41, XA42, XA43, TYPEXT, Y, C, IKLE1, IKLE2, IKLE3, IKLE4, NPOIN, NELEM, W1, W2, W3, W4)
 

Function/Subroutine Documentation

◆ mv0404()

subroutine mv0404 ( 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(*), intent(in)  XA12,
double precision, dimension(*), intent(in)  XA13,
double precision, dimension(*), intent(in)  XA14,
double precision, dimension(*), intent(in)  XA21,
double precision, dimension(*), intent(in)  XA23,
double precision, dimension(*), intent(in)  XA24,
double precision, dimension(*), intent(in)  XA31,
double precision, dimension(*), intent(in)  XA32,
double precision, dimension(*), intent(in)  XA34,
double precision, dimension(*), intent(in)  XA41,
double precision, dimension(*), intent(in)  XA42,
double precision, dimension(*), intent(in)  XA43,
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, intent(in)  NPOIN,
integer, intent(in)  NELEM,
double precision, dimension(*), intent(inout)  W1,
double precision, dimension(*), intent(inout)  W2,
double precision, dimension(*), intent(inout)  W3,
double precision, dimension(*), intent(inout)  W4 
)
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]NELEMNumber of elements
[in]NPOINNumber of linear 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]XResult in assembled form
[in]XA13Off-diagonal term of matrix
[in]XA14Off-diagonal term of matrix
[in]XA21Off-diagonal term of matrix
[in]XA23Off-diagonal term of matrix
[in]XA24Off-diagonal term of matrix
[in]XA31Off-diagonal term of matrix
[in]XA32Off-diagonal term of matrix
[in]XA34Off-diagonal term of matrix
[in]XA41Off-diagonal term of matrix
[in]XA42Off-diagonal term of matrix
[in]XA43Off-diagonal term of matrix
[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]NELEMNumber of elements
[in]NPOINNumber of linear 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]XResult in assembled form
[in]XA13Off-diagonal term of matrix
[in]XA14Off-diagonal term of matrix
[in]XA21Off-diagonal term of matrix
[in]XA23Off-diagonal term of matrix
[in]XA24Off-diagonal term of matrix
[in]XA31Off-diagonal term of matrix
[in]XA32Off-diagonal term of matrix
[in]XA34Off-diagonal term of matrix
[in]XA41Off-diagonal term of matrix
[in]XA42Off-diagonal term of matrix
[in]XA43Off-diagonal term of matrix
[in]YVector used in the operation

Definition at line 9 of file mv0404.f.

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