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

Go to the source code of this file.

Functions/Subroutines

subroutine mv0603 (OP, X, DA, TYPDIA, XA12, XA13, XA21, XA23, XA31, XA32, XA41, XA42, XA43, XA51, XA52, XA53, XA61, XA62, XA63, TYPEXT, Y, C, IKLE1, IKLE2, IKLE3, IKLE4, IKLE5, IKLE6, NPOIN, NPT2, NELEM, W1, W2, W3, W4, W5, W6)
 

Function/Subroutine Documentation

◆ mv0603()

subroutine mv0603 ( 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)  XA21,
double precision, dimension(*), intent(in)  XA23,
double precision, dimension(*), intent(in)  XA31,
double precision, dimension(*), intent(in)  XA32,
double precision, dimension(*), intent(in)  XA41,
double precision, dimension(*), intent(in)  XA42,
double precision, dimension(*), intent(in)  XA43,
double precision, dimension(*), intent(in)  XA51,
double precision, dimension(*), intent(in)  XA52,
double precision, dimension(*), intent(in)  XA53,
double precision, dimension(*), intent(in)  XA61,
double precision, dimension(*), intent(in)  XA62,
double precision, dimension(*), intent(in)  XA63,
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)  NPT2,
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,
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]XResult in assembled form
[in]XA13Off-diagonal term of matrix
[in]XA21Off-diagonal term of matrix
[in]XA23Off-diagonal term of matrix
[in]XA31Off-diagonal term of matrix
[in]XA32Off-diagonal term of matrix
[in]XA41Off-diagonal term of matrix
[in]XA42Off-diagonal term of matrix
[in]XA43Off-diagonal term of matrix|
[in]XA51Off-diagonal term of matrix
[in]XA52Off-diagonal term of matrix
[in]XA53Off-diagonal term of matrix
[in]XA61Off-diagonal term of matrix
[in]XA62Off-diagonal term of matrix
[in]XA63Off-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]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]XResult in assembled form
[in]XA13Off-diagonal term of matrix
[in]XA21Off-diagonal term of matrix
[in]XA23Off-diagonal term of matrix
[in]XA31Off-diagonal term of matrix
[in]XA32Off-diagonal term of matrix
[in]XA41Off-diagonal term of matrix
[in]XA42Off-diagonal term of matrix
[in]XA43Off-diagonal term of matrix|
[in]XA51Off-diagonal term of matrix
[in]XA52Off-diagonal term of matrix
[in]XA53Off-diagonal term of matrix
[in]XA61Off-diagonal term of matrix
[in]XA62Off-diagonal term of matrix
[in]XA63Off-diagonal term of matrix
[in]YVector used in the operation
[in]npt2C 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]XResult in assembled form
[in]XA13Off-diagonal term of matrix
[in]XA21Off-diagonal term of matrix
[in]XA23Off-diagonal term of matrix
[in]XA31Off-diagonal term of matrix
[in]XA32Off-diagonal term of matrix
[in]XA41Off-diagonal term of matrix
[in]XA42Off-diagonal term of matrix
[in]XA43Off-diagonal term of matrix|
[in]XA51Off-diagonal term of matrix
[in]XA52Off-diagonal term of matrix
[in]XA53Off-diagonal term of matrix
[in]XA61Off-diagonal term of matrix
[in]XA62Off-diagonal term of matrix
[in]XA63Off-diagonal term of matrix
[in]YVector used in the operation

Definition at line 12 of file mv0603.f.

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