dlb_finalize Subroutine

public subroutine dlb_finalize()

Finalize dynamic load balancing

Arguments

None

Calls

proc~~dlb_finalize~~CallsGraph proc~dlb_finalize dlb_finalize proc~comm_barrier comm_t%comm_barrier proc~dlb_finalize->proc~comm_barrier proc~win_finalize win_t%win_finalize proc~dlb_finalize->proc~win_finalize mpi_barrier mpi_barrier proc~comm_barrier->mpi_barrier mpi_win_free mpi_win_free proc~win_finalize->mpi_win_free

Source Code

   subroutine dlb_finalize()
      if (.not. dlb_initialized) return

      call dlb_comm%barrier()
      call counter_win%finalize()
      nullify (counter_ptr)
      call dlb_comm%finalize()
      dlb_initialized = .false.
   end subroutine dlb_finalize