Go to the source code of this file.
Functions/Subroutines | |
| subroutine | mw0303 (OP, X, DA, TYPDIA, XAS, TYPEXT, Y, C, IKLEM1, DIMIKM, LIMVOI, MXPTVS, NPMAX, NPOIN, TRAV) |
Function/Subroutine Documentation
◆ mw0303()
| subroutine mw0303 | ( | 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) | XAS, | ||
| character(len=1), intent(in) | TYPEXT, | ||
| double precision, dimension(*), intent(in) | Y, | ||
| double precision, intent(in) | C, | ||
| integer, dimension(dimikm,4,2), intent(in) | IKLEM1, | ||
| integer, intent(in) | DIMIKM, | ||
| integer, dimension(11,2), intent(in) | LIMVOI, | ||
| integer, intent(in) | MXPTVS, | ||
| integer, intent(in) | NPMAX, | ||
| integer, intent(in) | NPOIN, | ||
| double precision, dimension(*), intent(inout) | TRAV | ||
| ) |
- Parameters
-
[in] dimikm MXPTVS Maximum number of neighbours of a point [in] NPMAX Maximum number of points. [in] NPOIN Number of points [in] OP Operation to be done (see above) [in] TRAV Work array [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] X Result in assembled form [in] XAS Off-diagonal terms of matrix [in] Y Vector used in the operation [in] mxptvs MXPTVS Maximum number of neighbours of a point [in] NPMAX Maximum number of points. [in] NPOIN Number of points [in] OP Operation to be done (see above) [in] TRAV Work array [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] X Result in assembled form [in] XAS Off-diagonal terms of matrix [in] Y Vector used in the operation [in] npmax MXPTVS Maximum number of neighbours of a point [in] NPMAX Maximum number of points. [in] NPOIN Number of points [in] OP Operation to be done (see above) [in] TRAV Work array [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] X Result in assembled form [in] XAS Off-diagonal terms of matrix [in] Y Vector used in the operation [in] npoin MXPTVS Maximum number of neighbours of a point [in] NPMAX Maximum number of points. [in] NPOIN Number of points [in] OP Operation to be done (see above) [in] TRAV Work array [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] X Result in assembled form [in] XAS Off-diagonal terms of matrix [in] Y Vector used in the operation
Definition at line 8 of file mw0303.f.
Here is the call graph for this function: Here is the caller graph for this function: