Go to the source code of this file.
|
subroutine | sd_strssd (NPBLK, NSEGBLK, GLOSEG1, GLOSEG2, IN, IP, ISEGIP, IW) |
|
◆ sd_strssd()
subroutine sd_strssd |
( |
integer, intent(in) |
NPBLK, |
|
|
integer, intent(in) |
NSEGBLK, |
|
|
integer, dimension(nsegblk), intent(in) |
GLOSEG1, |
|
|
integer, dimension(nsegblk), intent(in) |
GLOSEG2, |
|
|
integer, dimension(npblk+1), intent(inout) |
IN, |
|
|
integer, dimension(nsegblk*2), intent(inout) |
IP, |
|
|
integer, dimension(nsegblk*2), intent(inout) |
ISEGIP, |
|
|
integer, dimension(npblk), intent(inout) |
IW |
|
) |
| |
- Parameters
-
[in] | nsegblk | GLOSEG1 First point of segments |
[in] | GLOSEG2 | Second point of segments |
[out] | IN | (in, ip) compact storage of extradiagonal terms |
[out] | IP | (in, ip) compact storage of extradiagonal terms |
[out] | ISEGIP | Inverse table of connectivity: point–>segment |
[out] | IW | Number of neighbours of points |
[in] | NPBLK | Number of points |
[in] | NSEGBLK | Number of segments |
[in] | npblk | GLOSEG1 First point of segments |
[in] | GLOSEG2 | Second point of segments |
[out] | IN | (in, ip) compact storage of extradiagonal terms |
[out] | IP | (in, ip) compact storage of extradiagonal terms |
[out] | ISEGIP | Inverse table of connectivity: point–>segment |
[out] | IW | Number of neighbours of points |
[in] | NPBLK | Number of points |
[in] | NSEGBLK | Number of segments |
Definition at line 7 of file sd_strssd.f.