subroutine hamilton_jacobi_equations_routines::SOLVE_PROBLEM_GEODESIC_CONNECTIVITY::solve_problem_geodesic_connectivity |
( |
integer(intg), intent(in) |
TOTAL_NUMBER_OF_NODES, |
|
|
real(dp), dimension(:,:), allocatable |
NODE_LIST, |
|
|
real(dp), dimension(:,:), allocatable |
CONDUCTIVITY_TENSOR_ON_CONNECTIVITY, |
|
|
real(dp), dimension(:,:), allocatable |
SPEED_FUNCTION_TABLE_ON_CONNECTIVITY, |
|
|
integer(intg), dimension(:), allocatable |
RAW_INDEX, |
|
|
integer(intg), dimension(:), allocatable |
COLUMN_INDEX, |
|
|
integer(intg), intent(in) |
TOTAL_NUMBER_OF_CONNECTIVITY, |
|
|
real(dp), dimension(:), allocatable |
SEED_VALUE, |
|
|
character (len=10), dimension(:), allocatable |
STATUS_MASK, |
|
|
integer(intg), dimension(:), allocatable |
TRACE_NODE |
|
) |
| |
|
private |