The TELEMAC-MASCARET system  trunk
om1101.f File Reference

Go to the source code of this file.

## Functions/Subroutines

subroutine om1101 (OP, DM, TYPDIM, XM, TYPEXM, DN, TYPDIN, XN, TYPEXN, C, NULONE, NELBOR, NBOR, NELMAX, NDIAG, NPTFR, NELEBX, NELEB)

## ◆ om1101()

 subroutine om1101 ( character(len=8), intent(in) OP, double precision, dimension(*), intent(inout) DM, character(len=1), intent(inout) TYPDIM, double precision, dimension(nelmax,*), intent(inout) XM, character(len=1), intent(inout) TYPEXM, double precision, dimension(*), intent(in) DN, character(len=1), intent(inout) TYPDIN, double precision, dimension(*), intent(in) XN, character(len=1), intent(inout) TYPEXN, double precision, intent(in) C, integer, dimension(nelebx), intent(in) NULONE, integer, dimension(nelebx), intent(in) NELBOR, integer, dimension(*), intent(in) NBOR, integer, intent(in) NELMAX, integer, intent(in) NDIAG, integer, intent(in) NPTFR, integer, intent(in) NELEBX, integer, intent(in) NELEB )
Parameters
 [in] nelmax 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] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements [in] NELEBX Maximum number of boundary elements [in] NELMAX Maximum number of elements [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [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] 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] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements [in] NELEBX Maximum number of boundary elements [in] NELMAX Maximum number of elements [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [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] NBOR Global number of boundary points [in] NDIAG Number of terms in the diagonal [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements [in] NELEBX Maximum number of boundary elements [in] NELMAX Maximum number of elements [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [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] nelebx 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] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements [in] NELEBX Maximum number of boundary elements [in] NELMAX Maximum number of elements [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [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] neleb 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] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEB Number of boundary elements [in] NELEBX Maximum number of boundary elements [in] NELMAX Maximum number of elements [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [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 8 of file om1101.f. Here is the call graph for this function: Here is the caller graph for this function: