subroutine gen_gradxy |
( |
integer, intent(in) |
nnode, |
|
|
integer, intent(in) |
ntr, |
|
|
integer, intent(in) |
max_t, |
|
|
integer, intent(in) |
max_v, |
|
|
integer, dimension(1:3, 1:ntr), intent(in) |
nd, |
|
|
real(kind=dp), dimension(1:2,1:3,1:ntr), intent(in) |
mapping, |
|
|
real(kind=dp), dimension(1:ntr), intent(in) |
tr_area, |
|
|
integer, dimension(1:nnode), intent(in) |
num_t_node, |
|
|
integer, dimension(1:max_t, 1:nnode), intent(in) |
tr_node, |
|
|
integer, dimension(1:nnode), intent(in) |
num_v_node, |
|
|
integer, dimension(1:max_v,1:nnode), intent(in) |
v_node, |
|
|
real(kind=dp), dimension(1:max_v,1:nnode), intent(out) |
gx, |
|
|
real(kind=dp), dimension(1:max_v,1:nnode), intent(out) |
gy, |
|
|
logical, intent(in) |
do_write |
|
) |
| |