subroutine mt07cc |
( |
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) |
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) |
A33, |
|
|
double precision, dimension(*), intent(inout) |
A34, |
|
|
double precision, dimension(*), intent(inout) |
A35, |
|
|
double precision, dimension(*), intent(inout) |
A36, |
|
|
double precision, dimension(*), intent(inout) |
A44, |
|
|
double precision, dimension(*), intent(inout) |
A45, |
|
|
double precision, dimension(*), intent(inout) |
A46, |
|
|
double precision, dimension(*), intent(inout) |
A55, |
|
|
double precision, dimension(*), intent(inout) |
A56, |
|
|
double precision, dimension(*), intent(inout) |
A66, |
|
|
double precision, intent(in) |
XMUL, |
|
|
type(bief_obj), intent(in) |
SF, |
|
|
double precision, dimension(*), intent(in) |
F, |
|
|
double precision, dimension(nelmax), intent(in) |
SURFAC, |
|
|
integer, intent(in) |
NELEM, |
|
|
integer, intent(in) |
NELMAX |
|
) |
| |