Return total number of tree nodes given the total number refinement levels used.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=I4P), | intent(in) | :: | refinement_levels | Total number of refinement levels used. |
Total number of tree nodes.
pure function nodes_number(refinement_levels)
!< Return total number of tree nodes given the total number refinement levels used.
integer(I4P), intent(in) :: refinement_levels !< Total number of refinement levels used.
integer(I4P) :: nodes_number !< Total number of tree nodes.
integer :: level !< Counter.
nodes_number = 0
do level=0, refinement_levels
nodes_number = nodes_number + nodes_number_at_level(level=level)
enddo
endfunction nodes_number