darrays_init Subroutine

public subroutine darrays_init(comm)

Initialize the distributed arrays module

Arguments

Type IntentOptional Attributes Name
type(comm_t), intent(in) :: comm

Calls

proc~~darrays_init~~CallsGraph proc~darrays_init darrays_init proc~comm_duplicate comm_t%comm_duplicate proc~darrays_init->proc~comm_duplicate interface~comm_null comm_null proc~comm_duplicate->interface~comm_null mpi_comm_dup mpi_comm_dup proc~comm_duplicate->mpi_comm_dup proc~create_comm_from_mpi create_comm_from_mpi proc~comm_duplicate->proc~create_comm_from_mpi proc~create_null_comm create_null_comm interface~comm_null->proc~create_null_comm mpi_comm_rank mpi_comm_rank proc~create_comm_from_mpi->mpi_comm_rank mpi_comm_size mpi_comm_size proc~create_comm_from_mpi->mpi_comm_size

Variables

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

Source Code

   subroutine darrays_init(comm)
      type(comm_t), intent(in) :: comm
      integer(int32) :: i

      global_comm = comm%duplicate()
      do i = 1, MAX_ARRAYS
         registry(i)%active = .false.
         registry(i)%handle = -1
      end do
      initialized = .true.
   end subroutine darrays_init