| subroutine, public lpt_wall_collision_device::lpt_handle_elastic_wall_collisions_device |
( |
type(mesh_t), intent(in) |
msh, |
|
|
type(dofmap_t), intent(in) |
dm_xh, |
|
|
type(coef_t), intent(in) |
coef, |
|
|
type(c_ptr), intent(in) |
wall_facet_mask_d, |
|
|
type(c_ptr), intent(in) |
el_list_d, |
|
|
type(vector_t), intent(in) |
x_old, |
|
|
type(vector_t), intent(in) |
y_old, |
|
|
type(vector_t), intent(in) |
z_old, |
|
|
type(vector_t), intent(inout) |
x, |
|
|
type(vector_t), intent(inout) |
y, |
|
|
type(vector_t), intent(inout) |
z, |
|
|
type(vector_t), intent(in) |
d, |
|
|
type(vector_t), intent(inout) |
u, |
|
|
type(vector_t), intent(inout) |
v, |
|
|
type(vector_t), intent(inout) |
w, |
|
|
type(vector_t), intent(inout) |
u_lag, |
|
|
type(vector_t), intent(inout) |
v_lag, |
|
|
type(vector_t), intent(inout) |
w_lag, |
|
|
type(vector_t), intent(inout) |
u_laglag, |
|
|
type(vector_t), intent(inout) |
v_laglag, |
|
|
type(vector_t), intent(inout) |
w_laglag, |
|
|
type(vector_t), intent(inout) |
acc_xlag, |
|
|
type(vector_t), intent(inout) |
acc_ylag, |
|
|
type(vector_t), intent(inout) |
acc_zlag, |
|
|
type(vector_t), intent(inout) |
acc_xlaglag, |
|
|
type(vector_t), intent(inout) |
acc_ylaglag, |
|
|
type(vector_t), intent(inout) |
acc_zlaglag, |
|
|
type(vector_t), intent(inout) |
u_old, |
|
|
type(vector_t), intent(inout) |
v_old, |
|
|
type(vector_t), intent(inout) |
w_old, |
|
|
type(vector_t), intent(inout) |
acc_x, |
|
|
type(vector_t), intent(inout) |
acc_y, |
|
|
type(vector_t), intent(inout) |
acc_z, |
|
|
integer, intent(in) |
lag_len, |
|
|
integer, intent(in) |
n, |
|
|
type(c_ptr), optional |
strm |
|
) |
| |