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

Go to the source code of this file.

Functions/Subroutines

subroutine sd_fabsg4 (NPOIN, NSEG, DAB1, DAB2, DAB3, DAB4, XAB1, XAB2, XAB3, XAB4, NPBLK, NSEGBLK, DA, XA, TYPEXT1, TYPEXT2, TYPEXT3, TYPEXT4)
 

Function/Subroutine Documentation

◆ sd_fabsg4()

subroutine sd_fabsg4 ( integer, intent(in)  NPOIN,
integer, intent(in)  NSEG,
double precision, dimension(npoin), intent(in)  DAB1,
double precision, dimension(npoin), intent(in)  DAB2,
double precision, dimension(npoin), intent(in)  DAB3,
double precision, dimension(npoin), intent(in)  DAB4,
double precision, dimension(*), intent(in)  XAB1,
double precision, dimension(*), intent(in)  XAB2,
double precision, dimension(*), intent(in)  XAB3,
double precision, dimension(*), intent(in)  XAB4,
integer, intent(in)  NPBLK,
integer, intent(in)  NSEGBLK,
double precision, dimension(npblk), intent(inout)  DA,
double precision, dimension(2*nsegblk), intent(inout)  XA,
character(len=1), intent(in)  TYPEXT1,
character(len=1), intent(in)  TYPEXT2,
character(len=1), intent(in)  TYPEXT3,
character(len=1), intent(in)  TYPEXT4 
)
Parameters
[in]nsegblk[out] DA Resulting matrix diagonal
[in]DAB1Matrix diagonal in the original system
[in]DAB2Matrix diagonal in the original system
[in]DAB3Matrix diagonal in the original system
[in]DAB4Matrix diagonal in the original system
[in]NPBLKRank of final block matrix
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]NSEGBLKNumber of segments in final block
[in]QNon-symetric matrix
[in]SSymetric matrix
[in]TYPEXT1Type of matrix storage : block 1
[in]TYPEXT2Type of matrix storage : block 2
[in]TYPEXT3Type of matrix storage : block 3
[in]TYPEXT4Type of matrix storage : block 4
[out]XAResulting off-diagonal terms of matrix
[in]XAB1Off-diagonal terms in original system
[in]XAB2Off-diagonal terms in original system
[in]XAB3Off-diagonal terms in original system
[in]XAB4Off-diagonal terms in original system
[in]npblk[out] DA Resulting matrix diagonal
[in]DAB1Matrix diagonal in the original system
[in]DAB2Matrix diagonal in the original system
[in]DAB3Matrix diagonal in the original system
[in]DAB4Matrix diagonal in the original system
[in]NPBLKRank of final block matrix
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]NSEGBLKNumber of segments in final block
[in]QNon-symetric matrix
[in]SSymetric matrix
[in]TYPEXT1Type of matrix storage : block 1
[in]TYPEXT2Type of matrix storage : block 2
[in]TYPEXT3Type of matrix storage : block 3
[in]TYPEXT4Type of matrix storage : block 4
[out]XAResulting off-diagonal terms of matrix
[in]XAB1Off-diagonal terms in original system
[in]XAB2Off-diagonal terms in original system
[in]XAB3Off-diagonal terms in original system
[in]XAB4Off-diagonal terms in original system
[in]nseg[out] DA Resulting matrix diagonal
[in]DAB1Matrix diagonal in the original system
[in]DAB2Matrix diagonal in the original system
[in]DAB3Matrix diagonal in the original system
[in]DAB4Matrix diagonal in the original system
[in]NPBLKRank of final block matrix
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]NSEGBLKNumber of segments in final block
[in]QNon-symetric matrix
[in]SSymetric matrix
[in]TYPEXT1Type of matrix storage : block 1
[in]TYPEXT2Type of matrix storage : block 2
[in]TYPEXT3Type of matrix storage : block 3
[in]TYPEXT4Type of matrix storage : block 4
[out]XAResulting off-diagonal terms of matrix
[in]XAB1Off-diagonal terms in original system
[in]XAB2Off-diagonal terms in original system
[in]XAB3Off-diagonal terms in original system
[in]XAB4Off-diagonal terms in original system
[in]npoin[out] DA Resulting matrix diagonal
[in]DAB1Matrix diagonal in the original system
[in]DAB2Matrix diagonal in the original system
[in]DAB3Matrix diagonal in the original system
[in]DAB4Matrix diagonal in the original system
[in]NPBLKRank of final block matrix
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]NSEGBLKNumber of segments in final block
[in]QNon-symetric matrix
[in]SSymetric matrix
[in]TYPEXT1Type of matrix storage : block 1
[in]TYPEXT2Type of matrix storage : block 2
[in]TYPEXT3Type of matrix storage : block 3
[in]TYPEXT4Type of matrix storage : block 4
[out]XAResulting off-diagonal terms of matrix
[in]XAB1Off-diagonal terms in original system
[in]XAB2Off-diagonal terms in original system
[in]XAB3Off-diagonal terms in original system
[in]XAB4Off-diagonal terms in original system

Definition at line 8 of file sd_fabsg4.f.

+ Here is the caller graph for this function: