Go to the source code of this file.
Functions/Subroutines | |
| subroutine | mv0304 (OP, X, DA, TYPDIA, XA12, XA13, XA14, XA21, XA23, XA24, XA31, XA32, XA34, TYPEXT, Y, C, IKLE1, IKLE2, IKLE3, IKLE4, NPOIN, NELEM, W1, W2, W3, W4) |
Function/Subroutine Documentation
◆ mv0304()
| subroutine mv0304 | ( | 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, | ||
| 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] nelem C A given constant [in] DA Matrix diagonal [in] IKLE1 First points of elements [in] IKLE2 Second points of elements [in] IKLE3 Third points of elements [in] IKLE4 Fourth points of elements [in] NELEM Number of elements [in] NPOIN Number of points [in] OP Operation to be done (see above) [in] TYPDIA Type of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO [in] TYPEXT Type of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO [in,out] W1 Result in non assembled form [in,out] W2 Result in non assembled form [in,out] W3 Result in non assembled form [in,out] W4 Result in non assembled form [in,out] X Result in assembled form [in] XA13 Off-diagonal term of matrix [in] XA14 Off-diagonal term of matrix [in] XA21 Off-diagonal term of matrix [in] XA23 Off-diagonal term of matrix [in] XA24 Off-diagonal term of matrix [in] XA31 Off-diagonal term of matrix [in] XA32 Off-diagonal term of matrix [in] XA34 Off-diagonal term of matrix [in] Y Vector used in the operation [in] npoin C A given constant [in] DA Matrix diagonal [in] IKLE1 First points of elements [in] IKLE2 Second points of elements [in] IKLE3 Third points of elements [in] IKLE4 Fourth points of elements [in] NELEM Number of elements [in] NPOIN Number of points [in] OP Operation to be done (see above) [in] TYPDIA Type of diagonal: TYPDIA = 'Q' : ANY VALUE TYPDIA = 'I' : IDENTITY TYPDIA = '0' : ZERO [in] TYPEXT Type of off-diagonal terms TYPEXT = 'Q' : ANY VALUE TYPEXT = 'S' : SYMMETRIC TYPEXT = '0' : ZERO [in,out] W1 Result in non assembled form [in,out] W2 Result in non assembled form [in,out] W3 Result in non assembled form [in,out] W4 Result in non assembled form [in,out] X Result in assembled form [in] XA13 Off-diagonal term of matrix [in] XA14 Off-diagonal term of matrix [in] XA21 Off-diagonal term of matrix [in] XA23 Off-diagonal term of matrix [in] XA24 Off-diagonal term of matrix [in] XA31 Off-diagonal term of matrix [in] XA32 Off-diagonal term of matrix [in] XA34 Off-diagonal term of matrix [in] Y Vector used in the operation
Definition at line 9 of file mv0304.f.
Here is the call graph for this function: Here is the caller graph for this function: