subroutine mt13cc |
( |
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, |
|
|
double precision, dimension(nelmax,3), intent(in) |
XEL, |
|
|
double precision, dimension(nelmax,3), intent(in) |
YEL, |
|
|
integer, intent(in) |
NELEM, |
|
|
integer, intent(in) |
NELMAX, |
|
|
integer, intent(in) |
ICOORD |
|
) |
| |