subroutine mt02pp |
( |
double precision, dimension(nelmax,6), intent(inout) |
T, |
|
|
double precision, dimension(nelmax,15), intent(inout) |
XM, |
|
|
double precision, intent(in) |
XMUL, |
|
|
type(bief_obj), intent(in) |
SF, |
|
|
type(bief_obj), intent(in) |
SG, |
|
|
type(bief_obj), intent(in) |
SH, |
|
|
double precision, dimension(*), intent(in) |
F, |
|
|
double precision, dimension(*), intent(in) |
G, |
|
|
double precision, dimension(*), intent(in) |
H, |
|
|
double precision, dimension(nelmax,6), intent(in) |
X, |
|
|
double precision, dimension(nelmax,6), intent(in) |
Y, |
|
|
double precision, dimension(*), intent(in) |
Z, |
|
|
double precision, dimension(nelmax), intent(in) |
SURFAC, |
|
|
integer, dimension(nelmax,6), intent(in) |
IKLE, |
|
|
integer, intent(in) |
NELEM, |
|
|
integer, intent(in) |
NELMAX, |
|
|
logical, intent(in) |
INCHYD, |
|
|
character(len=16), intent(in) |
FORMUL, |
|
|
integer, intent(in) |
NPLAN |
|
) |
| |