subroutine prebd9 |
( |
type(bief_obj), intent(inout) |
X1, |
|
|
type(bief_obj), intent(inout) |
X2, |
|
|
type(bief_obj), intent(in) |
X3, |
|
|
type(bief_obj), intent(inout) |
A11, |
|
|
type(bief_obj), intent(inout) |
A12, |
|
|
type(bief_obj), intent(inout) |
A13, |
|
|
type(bief_obj), intent(inout) |
A21, |
|
|
type(bief_obj), intent(inout) |
A22, |
|
|
type(bief_obj), intent(inout) |
A23, |
|
|
type(bief_obj), intent(inout) |
A31, |
|
|
type(bief_obj), intent(inout) |
A32, |
|
|
type(bief_obj), intent(inout) |
A33, |
|
|
type(bief_obj), intent(in) |
B1, |
|
|
type(bief_obj), intent(inout) |
B2, |
|
|
type(bief_obj), intent(inout) |
B3, |
|
|
type(bief_obj), intent(inout) |
D11, |
|
|
type(bief_obj), intent(inout) |
D12, |
|
|
type(bief_obj), intent(inout) |
D13, |
|
|
type(bief_obj), intent(inout) |
D21, |
|
|
type(bief_obj), intent(inout) |
D22, |
|
|
type(bief_obj), intent(inout) |
D23, |
|
|
type(bief_obj), intent(inout) |
D31, |
|
|
type(bief_obj), intent(inout) |
D32, |
|
|
type(bief_obj), intent(inout) |
D33, |
|
|
type(bief_mesh), intent(inout) |
MESH, |
|
|
logical, intent(in) |
PREXSM, |
|
|
logical, intent(in) |
DIADON |
|
) |
| |