eulerian_set_Final Subroutine

private pure subroutine eulerian_set_Final(this)

Finalizes object and frees up memory.

Type Bound

eulerian_set

Arguments

Type IntentOptional Attributes Name
class(eulerian_set), intent(inout) :: this

An Eulerian Set

Calls

proc~~eulerian_set_final~~CallsGraph proc~eulerian_set_final eulerian_set%eulerian_set_Final proc~eulerian_obj_final eulerian_obj_base%eulerian_obj_Final proc~eulerian_set_final->proc~eulerian_obj_final

Called by

proc~~eulerian_set_final~~CalledByGraph proc~eulerian_set_final eulerian_set%eulerian_set_Final proc~setupcasefields SetUpCaseFields proc~setupcasefields->proc~eulerian_set_final proc~setupcasefields~10 SetUpCaseFields proc~setupcasefields~10->proc~eulerian_set_final proc~setupcasefields~2 SetUpCaseFields proc~setupcasefields~2->proc~eulerian_set_final proc~setupcasefields~3 SetUpCaseFields proc~setupcasefields~3->proc~eulerian_set_final proc~setupcasefields~4 SetUpCaseFields proc~setupcasefields~4->proc~eulerian_set_final proc~setupcasefields~5 SetUpCaseFields proc~setupcasefields~5->proc~eulerian_set_final proc~setupcasefields~6 SetUpCaseFields proc~setupcasefields~6->proc~eulerian_set_final proc~setupcasefields~7 SetUpCaseFields proc~setupcasefields~7->proc~eulerian_set_final proc~setupcasefields~8 SetUpCaseFields proc~setupcasefields~8->proc~eulerian_set_final proc~setupcasefields~9 SetUpCaseFields proc~setupcasefields~9->proc~eulerian_set_final program~main main program~main->proc~setupcasefields program~main~10 main program~main~10->proc~setupcasefields~6 program~main~11 main program~main~11->proc~setupcasefields~7 program~main~12 main program~main~12->proc~setupcasefields~8 program~main~13 main program~main~13->proc~setupcasefields~9 program~main~14 main program~main~14->proc~setupcasefields~10 program~main~3 main program~main~3->proc~setupcasefields~2 program~main~5 main program~main~5->proc~setupcasefields~3 program~main~8 main program~main~8->proc~setupcasefields~4 program~main~9 main program~main~9->proc~setupcasefields~5

Source Code

    pure subroutine eulerian_set_Final(this)
      !> Finalizes object and frees up memory.
      implicit none
      class(eulerian_set), intent(inout) :: this                               !! An Eulerian Set
      ! Work variables
      integer :: n

      ! Nullify pointers
      this%parallel => null()
      this%block    => null()

      ! Finalize each Eulerian object
      if (allocated(this%field)) then
        do n=1,size(this%field)
          call this%field(n)%p%Finalize
        end do
        deallocate(this%field)
      end if

      ! Clear hash table
      call this%tbl%Finalize

      return
    end subroutine eulerian_set_Final