MaxLevel_OctreeMesh3D Function

  1. SELF_OctreeMesh_3D.f90
  2. SELF_OctreeMesh_3D
  3. MaxLevel_OctreeMesh3D

public function MaxLevel_OctreeMesh3D(this) result(mx)

Highest refinement level among the active leaves.

Arguments

TypeIntentOptionalAttributesName
class(OctreeMesh3D), intent(in) :: this

Return Value integer


Contents

Source Code

MaxLevel_OctreeMesh3D

Source Code

  function MaxLevel_OctreeMesh3D(this) result(mx)
    !! Highest refinement level among the active leaves.
    implicit none
    class(OctreeMesh3D),intent(in) :: this
    integer :: mx
    integer :: i

    mx = 0
    do i = 1,this%nLeaves
      mx = max(mx,this%level(this%leaf(i)))
    enddo

  endfunction MaxLevel_OctreeMesh3D