You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.
|
submodule (parent:container) helper
|
|
implicit none
|
|
|
|
contains
|
|
|
|
module function parent_distance(pa, pb) result(dist)
|
|
type(parent_type), intent(in) :: pa, pb
|
|
real :: dist
|
|
|
|
dist = sqrt(parent_weight(pa) + parent_weight(pb))
|
|
end function parent_distance
|
|
|
|
end submodule helper
|