Go to the source code of this file.
| subroutine calc_e_e |
( |
double precision, dimension(dimension_3, -3:3, 0:dimension! _m), intent(in) |
A_M, |
|
|
integer, intent(in) |
MCP, |
|
|
double precision, dimension(dimension_3), intent(inout) |
E_E |
|
) |
| |
| subroutine calc_e_n |
( |
double precision, dimension(dimension_3, -3:3, 0:dimension! _m), intent(in) |
A_M, |
|
|
integer, intent(in) |
MCP, |
|
|
double precision, dimension(dimension_3), intent(inout) |
E_N |
|
) |
| |
| subroutine calc_e_t |
( |
double precision, dimension(dimension_3, -3:3, 0:dimension! _m), intent(in) |
A_M, |
|
|
integer, intent(in) |
MCP, |
|
|
double precision, dimension(dimension_3), intent(inout) |
E_T |
|
) |
| |