Go to the source code of this file.
|
subroutine | sd_fabcad (NPBLK, NSEGBLK, IN, IP, ISEGIP, INDTRI, ISTRI, INX, IPX, ACTRI, XA1, XA2, DA, AC) |
|
◆ sd_fabcad()
subroutine sd_fabcad |
( |
integer, intent(in) |
NPBLK, |
|
|
integer, intent(in) |
NSEGBLK, |
|
|
integer, dimension(npblk+1), intent(in) |
IN, |
|
|
integer, dimension(nsegblk*2), intent(in) |
IP, |
|
|
integer, dimension(nsegblk*2), intent(in) |
ISEGIP, |
|
|
integer, dimension(npblk), intent(inout) |
INDTRI, |
|
|
integer, dimension(npblk), intent(inout) |
ISTRI, |
|
|
integer, dimension(npblk+1), intent(inout) |
INX, |
|
|
integer, dimension(nsegblk*2+npblk), intent(inout) |
IPX, |
|
|
double precision, dimension(npblk), intent(inout) |
ACTRI, |
|
|
double precision, dimension(nsegblk), intent(in) |
XA1, |
|
|
double precision, dimension(nsegblk), intent(in) |
XA2, |
|
|
double precision, dimension(npblk), intent(in) |
DA, |
|
|
double precision, dimension(nsegblk*2+npblk), intent(inout) |
AC |
|
) |
| |
- Parameters
-
[in] | npblk | ISEGIP Inverse table of connectivity: point —> segment |
| | |
Definition at line 8 of file sd_fabcad.f.