The TELEMAC-MASCARET system  trunk
tnomer.f File Reference

Go to the source code of this file.

## Functions/Subroutines

subroutine tnomer (X, XA, TYPEXA, B, IKLE, NELEM, NELMAX, NPOIN, IELM, DITR, COPY, LV)

## ◆ tnomer()

 subroutine tnomer ( double precision, dimension(npoin), intent(inout) X, double precision, dimension(nelmax,*), intent(in) XA, character(len=*), intent(in) TYPEXA, double precision, dimension(npoin), intent(in) B, integer, dimension(nelmax,*), intent(in) IKLE, integer, intent(in) NELEM, integer, intent(in) NELMAX, integer, intent(in) NPOIN, integer, intent(in) IELM, character(len=*), intent(in) DITR, logical, intent(in) COPY, integer, intent(in) LV )
Parameters
 [in] ielm [out] B Right-hand side of the linear system to be solved [in] COPY If .true. b is copied into x to start with [in] DITR Character, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED [in] IELM Type of element (see above) [in] IKLE Connectivity table. [in] LV Vector length of the machine [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN Number of points [in] TYPEXA Type of off-diagonal terms in the matrix [out] X Solution of the system ax = b [out] XA Off-diagonal terms of the matrix [in] npoin [out] B Right-hand side of the linear system to be solved [in] COPY If .true. b is copied into x to start with [in] DITR Character, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED [in] IELM Type of element (see above) [in] IKLE Connectivity table. [in] LV Vector length of the machine [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN Number of points [in] TYPEXA Type of off-diagonal terms in the matrix [out] X Solution of the system ax = b [out] XA Off-diagonal terms of the matrix [in] nelem [out] B Right-hand side of the linear system to be solved [in] COPY If .true. b is copied into x to start with [in] DITR Character, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED [in] IELM Type of element (see above) [in] IKLE Connectivity table. [in] LV Vector length of the machine [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN Number of points [in] TYPEXA Type of off-diagonal terms in the matrix [out] X Solution of the system ax = b [out] XA Off-diagonal terms of the matrix [in] nelmax [out] B Right-hand side of the linear system to be solved [in] COPY If .true. b is copied into x to start with [in] DITR Character, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED [in] IELM Type of element (see above) [in] IKLE Connectivity table. [in] LV Vector length of the machine [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN Number of points [in] TYPEXA Type of off-diagonal terms in the matrix [out] X Solution of the system ax = b [out] XA Off-diagonal terms of the matrix [in] lv [out] B Right-hand side of the linear system to be solved [in] COPY If .true. b is copied into x to start with [in] DITR Character, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED [in] IELM Type of element (see above) [in] IKLE Connectivity table. [in] LV Vector length of the machine [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] NPOIN Number of points [in] TYPEXA Type of off-diagonal terms in the matrix [out] X Solution of the system ax = b [out] XA Off-diagonal terms of the matrix

Definition at line 7 of file tnomer.f.

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