darrays_finalize Subroutine

public subroutine darrays_finalize()

Finalize the distributed arrays module

Arguments

None

Calls

proc~~darrays_finalize~~CallsGraph proc~darrays_finalize darrays_finalize proc~comm_finalize comm_t%comm_finalize proc~darrays_finalize->proc~comm_finalize proc~darray_destroy darray_destroy proc~darrays_finalize->proc~darray_destroy mpi_comm_free mpi_comm_free proc~comm_finalize->mpi_comm_free proc~comm_barrier comm_t%comm_barrier proc~darray_destroy->proc~comm_barrier proc~win_finalize win_t%win_finalize proc~darray_destroy->proc~win_finalize mpi_barrier mpi_barrier proc~comm_barrier->mpi_barrier mpi_win_free mpi_win_free proc~win_finalize->mpi_win_free

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: i

Source Code

   subroutine darrays_finalize()
      integer(int32) :: i

      if (.not. initialized) return

      do i = 1, MAX_ARRAYS
         if (registry(i)%active) then
            call darray_destroy(i)
         end if
      end do

      call global_comm%finalize()
      initialized = .false.
   end subroutine darrays_finalize