region_obj_Final Subroutine

private pure subroutine region_obj_Final(this)

Type Bound

region_obj

Arguments

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

A boundary region object

Calls

proc~~region_obj_final~~CallsGraph proc~region_obj_final region_obj%region_obj_Final proc~hashtbl_obj_final hashtbl_obj%hashtbl_obj_Final proc~region_obj_final->proc~hashtbl_obj_final

Called by

proc~~region_obj_final~~CalledByGraph proc~region_obj_final region_obj%region_obj_Final proc~bc_set_final bc_set%bc_set_Final proc~bc_set_final->proc~region_obj_final

Source Code

    pure subroutine region_obj_Final(this)
      ! Finalizes a region
      class(region_obj), intent(inout) :: this                                 !! A boundary region object
      ! Work variable
      integer :: n

      if (allocated(this%name)) deallocate(this%name)
      do n=1,this%count
        if (associated(this%BC(n)%val)) deallocate(this%BC(n)%val)
        this%BC(n)%val => null()
      end do
      if (allocated(this%BC))   deallocate(this%BC)

      call this%tbl%Finalize

      return
    end subroutine region_obj_Final