subroutine bief::SD_SOLVE_4::sd_solve_4 |
( |
integer, intent(in) |
NPOIN, |
|
|
integer, intent(in) |
NSEGB, |
|
|
integer, dimension(nsegb*2), intent(in) |
GLOSEGB, |
|
|
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, |
|
|
double precision, dimension(npoin), intent(inout) |
XX1, |
|
|
double precision, dimension(npoin), intent(inout) |
XX2, |
|
|
double precision, dimension(npoin), intent(in) |
CVB1, |
|
|
double precision, dimension(npoin), intent(in) |
CVB2, |
|
|
logical, intent(in) |
INFOGR, |
|
|
character(len=1), intent(in) |
TYPEXT1, |
|
|
character(len=1), intent(in) |
TYPEXT2, |
|
|
character(len=1), intent(in) |
TYPEXT3, |
|
|
character(len=1), intent(in) |
TYPEXT4 |
|
) |
| |