mpi_flow_startup Subroutine

public subroutine mpi_flow_startup()

Initializes the MPI environment if not already active.

Arguments

None

Calls

proc~~mpi_flow_startup~~CallsGraph proc~mpi_flow_startup mod_mpi_flow::mpi_flow_startup mpi_init mpi_init proc~mpi_flow_startup->mpi_init mpi_initialized mpi_initialized proc~mpi_flow_startup->mpi_initialized proc~check_mpi~2 mod_mpi_flow::check_mpi proc~mpi_flow_startup->proc~check_mpi~2 proc~fatal_error mod_kinds::fatal_error proc~check_mpi~2->proc~fatal_error

Called by

proc~~mpi_flow_startup~~CalledByGraph proc~mpi_flow_startup mod_mpi_flow::mpi_flow_startup program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~mpi_flow_startup

Source Code

   subroutine mpi_flow_startup()
      logical :: initialized
      integer :: ierr

      call MPI_Initialized(initialized, ierr)
      call check_mpi(ierr, 'MPI_Initialized')

      if (.not. initialized) then
         call MPI_Init(ierr)
         call check_mpi(ierr, 'MPI_Init')
         mpi_started_here = .true.
      end if
   end subroutine mpi_flow_startup