Go to the source code of this file.
|
subroutine | calc_tau_v_s (lTAU_V_S) |
|
subroutine | calc_reg_tau_v_s (IJK, M, SSX, SSY, SSZ, SBV) |
|
subroutine | calc_cg_tau_v_s (IJK, M, SSX, SSY, SSZ, SBV) |
|
subroutine calc_cg_tau_v_s |
( |
integer, intent(in) |
IJK, |
|
|
integer, intent(in) |
M, |
|
|
double precision, intent(out) |
SSX, |
|
|
double precision, intent(out) |
SSY, |
|
|
double precision, intent(out) |
SSZ, |
|
|
double precision, intent(out) |
SBV |
|
) |
| |
subroutine calc_reg_tau_v_s |
( |
integer, intent(in) |
IJK, |
|
|
integer, intent(in) |
M, |
|
|
double precision, intent(out) |
SSX, |
|
|
double precision, intent(out) |
SSY, |
|
|
double precision, intent(out) |
SSZ, |
|
|
double precision, intent(out) |
SBV |
|
) |
| |
subroutine calc_tau_v_s |
( |
double precision, dimension(dimension_3, dimension_m! ), intent(out) |
lTAU_V_S | ) |
|