Go to the source code of this file.
|
subroutine | dlduseg (DB, XB, TYPDIA, XA, TYPEXA, GLOSEG, NSEG, NPOIN, COPY) |
|
◆ 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] | nseg | COPY If .true. a is copied into b. IF .FALSE. B IS CONSIDERED ALREADY INITIALISED |
[out] | DB | Diagonal of matrix b |
[in] | GLOSEG | First and second point of segments |
[in] | NPOIN | Number of points |
[in] | NSEG | Number of segments |
[out] | TYPDIA | Type of diagonal ( 'q', 'i' , or '0' ) |
[out] | TYPEXA | Type of off-diagonal terms ('q','s',or '0') |
[out] | XA | Off-diagonal terms of matrix a |
[out] | XB | Off-diagonal terms of matrix b |
[in] | npoin | COPY If .true. a is copied into b. IF .FALSE. B IS CONSIDERED ALREADY INITIALISED |
[out] | DB | Diagonal of matrix b |
[in] | GLOSEG | First and second point of segments |
[in] | NPOIN | Number of points |
[in] | NSEG | Number of segments |
[out] | TYPDIA | Type of diagonal ( 'q', 'i' , or '0' ) |
[out] | TYPEXA | Type of off-diagonal terms ('q','s',or '0') |
[out] | XA | Off-diagonal terms of matrix a |
[out] | XB | Off-diagonal terms of matrix b |
Definition at line 7 of file dlduseg.f.