Go to the source code of this file.
subroutine calc_cg_tau_w_g |
( |
double precision, dimension(dimension_3), intent(out) |
lTAu_w_G, |
|
|
double precision, dimension(dimension_3), intent(out) |
lctau_w_g |
|
) |
| |
subroutine calc_tau_w_g |
( |
double precision, dimension(dimension_3), intent(out) |
lTAU_W_G, |
|
|
double precision, dimension(dimension_3), intent(out) |
lctau_w_g |
|
) |
| |
subroutine get_full_tau_w_g |
( |
integer, intent(in) |
IJK, |
|
|
double precision, dimension(dimension_3), intent(in) |
ltau_w_g, |
|
|
double precision, dimension(dimension_3), intent(inout) |
lctau_w_g |
|
) |
| |