subroutine mt03cc |
( |
double precision, dimension(*), intent(inout) |
A11, |
|
|
double precision, dimension(*), intent(inout) |
A12, |
|
|
double precision, dimension(*), intent(inout) |
A13, |
|
|
double precision, dimension(*), intent(inout) |
A14, |
|
|
double precision, dimension(*), intent(inout) |
A15, |
|
|
double precision, dimension(*), intent(inout) |
A16, |
|
|
double precision, dimension(*), intent(inout) |
A21, |
|
|
double precision, dimension(*), intent(inout) |
A22, |
|
|
double precision, dimension(*), intent(inout) |
A23, |
|
|
double precision, dimension(*), intent(inout) |
A24, |
|
|
double precision, dimension(*), intent(inout) |
A25, |
|
|
double precision, dimension(*), intent(inout) |
A26, |
|
|
double precision, dimension(*), intent(inout) |
A31, |
|
|
double precision, dimension(*), intent(inout) |
A32, |
|
|
double precision, dimension(*), intent(inout) |
A33, |
|
|
double precision, dimension(*), intent(inout) |
A34, |
|
|
double precision, dimension(*), intent(inout) |
A35, |
|
|
double precision, dimension(*), intent(inout) |
A36, |
|
|
double precision, dimension(*), intent(inout) |
A41, |
|
|
double precision, dimension(*), intent(inout) |
A42, |
|
|
double precision, dimension(*), intent(inout) |
A43, |
|
|
double precision, dimension(*), intent(inout) |
A44, |
|
|
double precision, dimension(*), intent(inout) |
A45, |
|
|
double precision, dimension(*), intent(inout) |
A46, |
|
|
double precision, dimension(*), intent(inout) |
A51, |
|
|
double precision, dimension(*), intent(inout) |
A52, |
|
|
double precision, dimension(*), intent(inout) |
A53, |
|
|
double precision, dimension(*), intent(inout) |
A54, |
|
|
double precision, dimension(*), intent(inout) |
A55, |
|
|
double precision, dimension(*), intent(inout) |
A56, |
|
|
double precision, dimension(*), intent(inout) |
A61, |
|
|
double precision, dimension(*), intent(inout) |
A62, |
|
|
double precision, dimension(*), intent(inout) |
A63, |
|
|
double precision, dimension(*), intent(inout) |
A64, |
|
|
double precision, dimension(*), intent(inout) |
A65, |
|
|
double precision, dimension(*), intent(inout) |
A66, |
|
|
double precision, intent(in) |
XMUL, |
|
|
type(bief_obj), intent(in) |
SF, |
|
|
type(bief_obj), intent(in) |
SG, |
|
|
type(bief_obj), intent(in) |
SU, |
|
|
type(bief_obj), intent(in) |
SV, |
|
|
double precision, dimension(*), intent(in) |
F, |
|
|
double precision, dimension(*), intent(in) |
G, |
|
|
double precision, dimension(*), intent(in) |
U, |
|
|
double precision, dimension(*), intent(in) |
V, |
|
|
double precision, dimension(nelmax,3), intent(in) |
XEL, |
|
|
double precision, dimension(nelmax,3), intent(in) |
YEL, |
|
|
integer, dimension(nelmax), intent(in) |
IKLE1, |
|
|
integer, dimension(nelmax), intent(in) |
IKLE2, |
|
|
integer, dimension(nelmax), intent(in) |
IKLE3, |
|
|
integer, dimension(nelmax), intent(in) |
IKLE4, |
|
|
integer, dimension(nelmax), intent(in) |
IKLE5, |
|
|
integer, dimension(nelmax), intent(in) |
IKLE6, |
|
|
integer, intent(in) |
NELEM, |
|
|
integer, intent(in) |
NELMAX |
|
) |
| |