Go to the source code of this file.
subroutine calc_cg_tau_v_g |
( |
double precision, dimension(dimension_3), intent(out) |
lTAU_V_G, |
|
|
double precision, dimension(dimension_3), intent(out) |
lctau_v_g |
|
) |
| |
subroutine calc_tau_v_g |
( |
double precision, dimension(dimension_3), intent(out) |
lTAU_V_G, |
|
|
double precision, dimension(dimension_3), intent(out) |
lctau_v_g |
|
) |
| |
subroutine get_full_tau_v_g |
( |
integer, intent(in) |
IJK, |
|
|
double precision, dimension(dimension_3), intent(in) |
ltau_v_g, |
|
|
double precision, dimension(dimension_3), intent(inout) |
lctau_v_g |
|
) |
| |