MaxLevel_QuadTreeMesh2D Function

  1. SELF_QuadTreeMesh_2D.f90
  2. SELF_QuadTreeMesh_2D
  3. MaxLevel_QuadTreeMesh2D

public function MaxLevel_QuadTreeMesh2D(this) result(mx)

Highest refinement level among the active leaves.

Arguments

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

Return Value integer


Contents

Source Code

MaxLevel_QuadTreeMesh2D

Source Code

  function MaxLevel_QuadTreeMesh2D(this) result(mx)
    !! Highest refinement level among the active leaves.
    implicit none
    class(QuadTreeMesh2D),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_QuadTreeMesh2D