The TELEMAC-MASCARET system  trunk
omborseg.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine omborseg (OP, DM, XM, TYPEXM, DN, XN, TYPEXN, C, NDIAG, MSEG1, MSEG2, NSEG1, NSEG2, NBOR)

◆ omborseg()

 subroutine omborseg ( character(len=8), intent(in) OP, double precision, dimension(*), intent(inout) DM, double precision, dimension(mseg1+mseg2), intent(inout) XM, character(len=1), intent(inout) TYPEXM, double precision, dimension(*), intent(in) DN, double precision, dimension(nseg1+nseg2), intent(in) XN, character(len=1), intent(inout) TYPEXN, double precision, intent(in) C, integer, intent(in) NDIAG, integer, intent(in) MSEG1, integer, intent(in) MSEG2, integer, intent(in) NSEG1, integer, intent(in) NSEG2, integer, dimension(*), intent(in) NBOR )
Parameters
 [in] ndiag C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] MSEG1 Number of segments of line element of m [in] MSEG2 Number of segments of column element of m [in] NSEG1 Number of segments of line element of n [in] NSEG2 Number of segments of column element of n [in] OP Operation to be done (see above) [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] mseg1 C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] MSEG1 Number of segments of line element of m [in] MSEG2 Number of segments of column element of m [in] NSEG1 Number of segments of line element of n [in] NSEG2 Number of segments of column element of n [in] OP Operation to be done (see above) [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] mseg2 C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] MSEG1 Number of segments of line element of m [in] MSEG2 Number of segments of column element of m [in] NSEG1 Number of segments of line element of n [in] NSEG2 Number of segments of column element of n [in] OP Operation to be done (see above) [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] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] MSEG1 Number of segments of line element of m [in] MSEG2 Number of segments of column element of m [in] NSEG1 Number of segments of line element of n [in] NSEG2 Number of segments of column element of n [in] OP Operation to be done (see above) [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] nseg2 C A given constant used in operation op [in,out] DM Diagonal of m [in] DN Diagonal of n [in] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] MSEG1 Number of segments of line element of m [in] MSEG2 Number of segments of column element of m [in] NSEG1 Number of segments of line element of n [in] NSEG2 Number of segments of column element of n [in] OP Operation to be done (see above) [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 8 of file omborseg.f.

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