Go to the source code of this file.
subroutine calc_cg_tau_u_g |
( |
double precision, dimension(dimension_3), intent(out) |
lTAu_U_G, |
|
|
double precision, dimension(dimension_3), intent(out) |
lctau_u_g |
|
) |
| |
subroutine calc_tau_u_g |
( |
double precision, dimension(dimension_3), intent(out) |
lTAU_U_G, |
|
|
double precision, dimension(dimension_3), intent(out) |
lctau_u_g |
|
) |
| |
subroutine get_full_tau_u_g |
( |
integer, intent(in) |
IJK, |
|
|
double precision, dimension(dimension_3), intent(in) |
ltau_u_g, |
|
|
double precision, dimension(dimension_3), intent(inout) |
lctau_u_g |
|
) |
| |