subroutine hamilton_jacobi_equations_routines::SOLVE_PROBLEM_FMM::solve_problem_fmm |
( |
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 |
|
) |
| |
|
private |