monitor_set_Final Subroutine

    impure subroutine monitor_set_Final(this)
      !> Finalizes object and frees memory.
      implicit none
      class(monitor_set), intent(inout) :: this                                !! A set of monitor objects
      ! Work variable
      integer :: n

      ! Nullify pointer
      this%parallel => null()

      ! Deallocate arrays
      if (allocated(this%m)) then
        do n=1, size(this%m)
          call this%m(n)%Finalize
        end do
        deallocate(this%m)
      end if

      ! Clear hash table
      call this%tbl%Finalize

      return
    end subroutine monitor_set_Final