subroutine hamilton_jacobi_equations_routines::SOLVE_PROBLEM_GEODESIC::solve_problem_geodesic |
( |
integer(intg), intent(in) |
TOTAL_NUMBER_OF_NODES, |
|
|
real(dp), dimension(:,:), allocatable |
NODE_LIST, |
|
|
real(dp), dimension(:,:), allocatable |
CONDUCTIVITY_TENSOR, |
|
|
real(dp), dimension(:,:), allocatable |
SPEED_FUNCTION_TABLE, |
|
|
real(dp), dimension(:), allocatable |
SEED_VALUE, |
|
|
integer(intg), dimension(:), allocatable |
CONNECTIVITY_NUMBER, |
|
|
integer(intg), dimension(:,:), allocatable |
CONNECTIVITY_LIST, |
|
|
character (len=10), dimension(:), allocatable |
STATUS_MASK, |
|
|
integer(intg), dimension(:), allocatable |
TRACE_NODE |
|
) |
| |
|
private |