subroutine pre4_mumps |
( |
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(2*nsegb), intent(in) |
XAB1, |
|
|
double precision, dimension(2*nsegb), intent(in) |
XAB2, |
|
|
double precision, dimension(2*nsegb), intent(in) |
XAB3, |
|
|
double precision, dimension(2*nsegb), 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, |
|
|
character(len=1), intent(in) |
TYPEXT1, |
|
|
character(len=1), intent(in) |
TYPEXT2, |
|
|
character(len=1), intent(in) |
TYPEXT3, |
|
|
character(len=1), intent(in) |
TYPEXT4, |
|
|
integer, dimension(*), intent(in) |
KNOLG, |
|
|
integer, intent(in) |
NPOIN_TOT |
|
) |
| |