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

Go to the source code of this file.

Functions/Subroutines

subroutine dlduseg (DB, XB, TYPDIA, XA, TYPEXA, GLOSEG, NSEG, NPOIN, COPY)
 

Function/Subroutine Documentation

◆ dlduseg()

subroutine dlduseg ( double precision, dimension(npoin), intent(inout)  DB,
double precision, dimension(nseg,*), intent(inout)  XB,
character(len=1), intent(in)  TYPDIA,
double precision, dimension(nseg,*), intent(in)  XA,
character(len=1), intent(in)  TYPEXA,
integer, dimension(nseg,2), intent(in)  GLOSEG,
integer, intent(in)  NSEG,
integer, intent(in)  NPOIN,
logical, intent(in)  COPY 
)
Parameters
[in]nsegCOPY If .true. a is copied into b. IF .FALSE. B IS CONSIDERED ALREADY INITIALISED
[out]DBDiagonal of matrix b
[in]GLOSEGFirst and second point of segments
[in]NPOINNumber of points
[in]NSEGNumber of segments
[out]TYPDIAType of diagonal ( 'q', 'i' , or '0' )
[out]TYPEXAType of off-diagonal terms ('q','s',or '0')
[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]GLOSEGFirst and second point of segments
[in]NPOINNumber of points
[in]NSEGNumber of segments
[out]TYPDIAType of diagonal ( 'q', 'i' , or '0' )
[out]TYPEXAType of off-diagonal terms ('q','s',or '0')
[out]XAOff-diagonal terms of matrix a
[out]XBOff-diagonal terms of matrix b

Definition at line 7 of file dlduseg.f.

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