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

Go to the source code of this file.

Functions/Subroutines

subroutine dldu21 (DB, XB, TYPDIA, XA, TYPEXA, IKLE, NELEM, NELMAX, NPOIN, W, COPY, LV)
 

Function/Subroutine Documentation

◆ dldu21()

subroutine dldu21 ( double precision, dimension(npoin), intent(inout)  DB,
double precision, dimension(nelmax,*), intent(inout)  XB,
character(len=1), intent(in)  TYPDIA,
double precision, dimension(nelmax,*), intent(in)  XA,
character(len=1), intent(in)  TYPEXA,
integer, dimension(nelmax,*), intent(in)  IKLE,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
integer, intent(in)  NPOIN,
double precision, dimension(nelmax,4), intent(out)  W,
logical, intent(in)  COPY,
integer, intent(in)  LV 
)
Parameters
[in]nelemCOPY If .true. a is copied into b. IF .FALSE. B IS CONSIDERED ALREADY INITIALISED
[out]DBDiagonal of matrix b
[in]IKLEConnectivity table
[in]LVVector length of the computer
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]TYPDIAType of diagonal ( 'q', 'i' , or '0' )
[out]TYPEXAType of off-diagonal terms ('q','s',or '0')
[in]WWork array of dimension (nelmax,3)
[out]XAOff-diagonal terms of matrix a
[out]XBOff-diagonal terms of matrix b
[in]nelmaxCOPY If .true. a is copied into b. IF .FALSE. B IS CONSIDERED ALREADY INITIALISED
[out]DBDiagonal of matrix b
[in]IKLEConnectivity table
[in]LVVector length of the computer
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]TYPDIAType of diagonal ( 'q', 'i' , or '0' )
[out]TYPEXAType of off-diagonal terms ('q','s',or '0')
[in]WWork array of dimension (nelmax,3)
[out]XAOff-diagonal terms of matrix a
[out]XBOff-diagonal terms of matrix b
[in]lvCOPY If .true. a is copied into b. IF .FALSE. B IS CONSIDERED ALREADY INITIALISED
[out]DBDiagonal of matrix b
[in]IKLEConnectivity table
[in]LVVector length of the computer
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]TYPDIAType of diagonal ( 'q', 'i' , or '0' )
[out]TYPEXAType of off-diagonal terms ('q','s',or '0')
[in]WWork array of dimension (nelmax,3)
[out]XAOff-diagonal terms of matrix a
[out]XBOff-diagonal terms of matrix b
[in]npoinCOPY If .true. a is copied into b. IF .FALSE. B IS CONSIDERED ALREADY INITIALISED
[out]DBDiagonal of matrix b
[in]IKLEConnectivity table
[in]LVVector length of the computer
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPOINNumber of points
[out]TYPDIAType of diagonal ( 'q', 'i' , or '0' )
[out]TYPEXAType of off-diagonal terms ('q','s',or '0')
[in]WWork array of dimension (nelmax,3)
[out]XAOff-diagonal terms of matrix a
[out]XBOff-diagonal terms of matrix b

Definition at line 7 of file dldu21.f.

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