subroutine calc_e_para |
( |
integer, intent(in) |
grid_nnode, |
|
|
integer, intent(in) |
grid_ntriangle, |
|
|
integer, dimension(3,grid_ntriangle), intent(in) |
grid_nd, |
|
|
integer, dimension(grid_nnode,0:1), intent(in) |
ff_hdp_tr, |
|
|
real(8), dimension(3,grid_nnode,0:1), intent(in) |
ff_hdp_p, |
|
|
integer, dimension(grid_nnode,0:1), intent(in) |
ff_1dp_tr, |
|
|
real(8), dimension(3,grid_nnode,0:1), intent(in) |
ff_1dp_p, |
|
|
integer, intent(in) |
nphi, |
|
|
integer, intent(in) |
iphi, |
|
|
real(8), dimension(grid_nnode,0:(nphi-1)), intent(in) |
dpot, |
|
|
real(8), intent(in) |
sml_bt_sign, |
|
|
real(8), dimension(grid_nnode), intent(in) |
psn_bfollow_1_dx, |
|
|
integer, intent(in) |
inode, |
|
|
real(8), dimension(0:1), intent(inout) |
E_para |
|
) |
| |