num_lod_meshes Function

private function num_lod_meshes(self) result(n)

Number of level-of-detail meshes built so far (0 without level of detail).

Type Bound

Sphere

Arguments

Type IntentOptional Attributes Name
class(Sphere), intent(in) :: self

Return Value integer


Source Code

    integer function num_lod_meshes(self) result(n)
        class(Sphere), intent(in) :: self
        integer :: k
        n = 0
        do k = 1, size(self%lod_mesh)
            if (c_associated(self%lod_mesh(k))) n = n + 1
        end do
    end function num_lod_meshes