Go to the source code of this file.
Functions/Subroutines | |
| subroutine | omsegbor (OP, DM, TYPDIM, XM, TYPEXM, DN, TYPDIN, XN, TYPEXN, C, NDIAG, NSEG1, NBOR, NPTFR, IELM1, IELN1, NSEG11, IKLBOR, NELEBX, NELEB) |
Function/Subroutine Documentation
◆ omsegbor()
| subroutine omsegbor | ( | character(len=8), intent(in) | OP, |
| double precision, dimension(*), intent(inout) | DM, | ||
| character(len=1), intent(inout) | TYPDIM, | ||
| double precision, dimension(nseg1,*), intent(inout) | XM, | ||
| character(len=1), intent(inout) | TYPEXM, | ||
| double precision, dimension(*), intent(in) | DN, | ||
| character(len=1), intent(inout) | TYPDIN, | ||
| double precision, dimension(nelebx,*), intent(in) | XN, | ||
| character(len=1), intent(inout) | TYPEXN, | ||
| double precision, intent(in) | C, | ||
| integer, intent(in) | NDIAG, | ||
| integer, intent(in) | NSEG1, | ||
| integer, dimension(*), intent(in) | NBOR, | ||
| integer, intent(in) | NPTFR, | ||
| integer, intent(in) | IELM1, | ||
| integer, intent(in) | IELN1, | ||
| integer, intent(in) | NSEG11, | ||
| integer, dimension(nelebx,*), intent(in) | IKLBOR, | ||
| integer, intent(in) | NELEBX, | ||
| integer, intent(in) | NELEB | ||
| ) |
- Parameters
-
[in] ndiag C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] IELM1 Type of element of m [in] IELN1 Type of element of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] NPTFR Number of boundary points [in] NSEG1 Number of segments considered in m [in] NSEG11 Number of linear segments [in] OP Operation to be done (see above) [in,out] TYPDIM Type of diagonal of m: TYPDIM = 'Q' : ANY VALUE TYPDIM = 'I' : IDENTITY TYPDIM = '0' : ZERO [in,out] TYPDIN Type of diagonal of n: TYPDIN = 'Q' : ANY VALUE TYPDIN = 'I' : IDENTITY TYPDIN = '0' : ZERO [in] TYPEXM Type of off-diagonal terms of m: TYPEXM = 'Q' : ANY VALUE TYPEXM = 'S' : SYMMETRIC TYPEXM = '0' : ZERO [in] TYPEXN Type of off-diagonal terms of n: TYPEXN = 'Q' : ANY VALUE TYPEXN = 'S' : SYMMETRIC TYPEXN = '0' : ZERO [in] XM Off-diagonal terms of m [in] XN Off-diagonal terms of n [in] nseg1 C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] IELM1 Type of element of m [in] IELN1 Type of element of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] NPTFR Number of boundary points [in] NSEG1 Number of segments considered in m [in] NSEG11 Number of linear segments [in] OP Operation to be done (see above) [in,out] TYPDIM Type of diagonal of m: TYPDIM = 'Q' : ANY VALUE TYPDIM = 'I' : IDENTITY TYPDIM = '0' : ZERO [in,out] TYPDIN Type of diagonal of n: TYPDIN = 'Q' : ANY VALUE TYPDIN = 'I' : IDENTITY TYPDIN = '0' : ZERO [in] TYPEXM Type of off-diagonal terms of m: TYPEXM = 'Q' : ANY VALUE TYPEXM = 'S' : SYMMETRIC TYPEXM = '0' : ZERO [in] TYPEXN Type of off-diagonal terms of n: TYPEXN = 'Q' : ANY VALUE TYPEXN = 'S' : SYMMETRIC TYPEXN = '0' : ZERO [in] XM Off-diagonal terms of m [in] XN Off-diagonal terms of n [in] nptfr C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] IELM1 Type of element of m [in] IELN1 Type of element of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] NPTFR Number of boundary points [in] NSEG1 Number of segments considered in m [in] NSEG11 Number of linear segments [in] OP Operation to be done (see above) [in,out] TYPDIM Type of diagonal of m: TYPDIM = 'Q' : ANY VALUE TYPDIM = 'I' : IDENTITY TYPDIM = '0' : ZERO [in,out] TYPDIN Type of diagonal of n: TYPDIN = 'Q' : ANY VALUE TYPDIN = 'I' : IDENTITY TYPDIN = '0' : ZERO [in] TYPEXM Type of off-diagonal terms of m: TYPEXM = 'Q' : ANY VALUE TYPEXM = 'S' : SYMMETRIC TYPEXM = '0' : ZERO [in] TYPEXN Type of off-diagonal terms of n: TYPEXN = 'Q' : ANY VALUE TYPEXN = 'S' : SYMMETRIC TYPEXN = '0' : ZERO [in] XM Off-diagonal terms of m [in] XN Off-diagonal terms of n [in] ielm1 C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] IELM1 Type of element of m [in] IELN1 Type of element of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] NPTFR Number of boundary points [in] NSEG1 Number of segments considered in m [in] NSEG11 Number of linear segments [in] OP Operation to be done (see above) [in,out] TYPDIM Type of diagonal of m: TYPDIM = 'Q' : ANY VALUE TYPDIM = 'I' : IDENTITY TYPDIM = '0' : ZERO [in,out] TYPDIN Type of diagonal of n: TYPDIN = 'Q' : ANY VALUE TYPDIN = 'I' : IDENTITY TYPDIN = '0' : ZERO [in] TYPEXM Type of off-diagonal terms of m: TYPEXM = 'Q' : ANY VALUE TYPEXM = 'S' : SYMMETRIC TYPEXM = '0' : ZERO [in] TYPEXN Type of off-diagonal terms of n: TYPEXN = 'Q' : ANY VALUE TYPEXN = 'S' : SYMMETRIC TYPEXN = '0' : ZERO [in] XM Off-diagonal terms of m [in] XN Off-diagonal terms of n [in] ieln1 C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] IELM1 Type of element of m [in] IELN1 Type of element of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] NPTFR Number of boundary points [in] NSEG1 Number of segments considered in m [in] NSEG11 Number of linear segments [in] OP Operation to be done (see above) [in,out] TYPDIM Type of diagonal of m: TYPDIM = 'Q' : ANY VALUE TYPDIM = 'I' : IDENTITY TYPDIM = '0' : ZERO [in,out] TYPDIN Type of diagonal of n: TYPDIN = 'Q' : ANY VALUE TYPDIN = 'I' : IDENTITY TYPDIN = '0' : ZERO [in] TYPEXM Type of off-diagonal terms of m: TYPEXM = 'Q' : ANY VALUE TYPEXM = 'S' : SYMMETRIC TYPEXM = '0' : ZERO [in] TYPEXN Type of off-diagonal terms of n: TYPEXN = 'Q' : ANY VALUE TYPEXN = 'S' : SYMMETRIC TYPEXN = '0' : ZERO [in] XM Off-diagonal terms of m [in] XN Off-diagonal terms of n [in] nseg11 C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] IELM1 Type of element of m [in] IELN1 Type of element of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] NPTFR Number of boundary points [in] NSEG1 Number of segments considered in m [in] NSEG11 Number of linear segments [in] OP Operation to be done (see above) [in,out] TYPDIM Type of diagonal of m: TYPDIM = 'Q' : ANY VALUE TYPDIM = 'I' : IDENTITY TYPDIM = '0' : ZERO [in,out] TYPDIN Type of diagonal of n: TYPDIN = 'Q' : ANY VALUE TYPDIN = 'I' : IDENTITY TYPDIN = '0' : ZERO [in] TYPEXM Type of off-diagonal terms of m: TYPEXM = 'Q' : ANY VALUE TYPEXM = 'S' : SYMMETRIC TYPEXM = '0' : ZERO [in] TYPEXN Type of off-diagonal terms of n: TYPEXN = 'Q' : ANY VALUE TYPEXN = 'S' : SYMMETRIC TYPEXN = '0' : ZERO [in] XM Off-diagonal terms of m [in] XN Off-diagonal terms of n
Definition at line 9 of file omsegbor.f.
Here is the call graph for this function: Here is the caller graph for this function: