The TELEMAC-MASCARET system  trunk
Functions/Subroutines
remont.f File Reference

Go to the source code of this file.

Functions/Subroutines

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

Function/Subroutine Documentation

◆ remont()

subroutine remont ( 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]COPYIf .true. b is copied into x to start with
[in]DITRCharacter, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED
[in]IELMType of element (see above)
[in]IKLEConnectivity table.
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]TYPEXAType of off-diagonal terms in the matrix
[out]XSolution of the system ax = b
[out]XAOff-diagonal terms of the matrix
[in]npoin[out] B Right-hand side of the linear system to be solved
[in]COPYIf .true. b is copied into x to start with
[in]DITRCharacter, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED
[in]IELMType of element (see above)
[in]IKLEConnectivity table.
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]TYPEXAType of off-diagonal terms in the matrix
[out]XSolution of the system ax = b
[out]XAOff-diagonal terms of the matrix
[in]nelem[out] B Right-hand side of the linear system to be solved
[in]COPYIf .true. b is copied into x to start with
[in]DITRCharacter, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED
[in]IELMType of element (see above)
[in]IKLEConnectivity table.
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]TYPEXAType of off-diagonal terms in the matrix
[out]XSolution of the system ax = b
[out]XAOff-diagonal terms of the matrix
[in]nelmax[out] B Right-hand side of the linear system to be solved
[in]COPYIf .true. b is copied into x to start with
[in]DITRCharacter, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED
[in]IELMType of element (see above)
[in]IKLEConnectivity table.
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]TYPEXAType of off-diagonal terms in the matrix
[out]XSolution of the system ax = b
[out]XAOff-diagonal terms of the matrix
[in]lv[out] B Right-hand side of the linear system to be solved
[in]COPYIf .true. b is copied into x to start with
[in]DITRCharacter, if 'd' : direct matrix a considered 'T' : TRANSPOSED MATRIX A CONSIDERED
[in]IELMType of element (see above)
[in]IKLEConnectivity table.
[in]LVVector length of the machine
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[in]TYPEXAType of off-diagonal terms in the matrix
[out]XSolution of the system ax = b
[out]XAOff-diagonal terms of the matrix

Definition at line 7 of file remont.f.

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