mpi_flow_shutdown Subroutine

public subroutine mpi_flow_shutdown()

Shuts down the MPI environment if it was started by this module.

Arguments

None

Calls

proc~~mpi_flow_shutdown~~CallsGraph proc~mpi_flow_shutdown mod_mpi_flow::mpi_flow_shutdown mpi_finalize mpi_finalize proc~mpi_flow_shutdown->mpi_finalize mpi_finalized mpi_finalized proc~mpi_flow_shutdown->mpi_finalized

Called by

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

Source Code

   subroutine mpi_flow_shutdown()
      logical :: finalized
      integer :: ierr

      call MPI_Finalized(finalized, ierr)
      if (ierr /= MPI_SUCCESS) return
      if (finalized) return

      if (mpi_started_here) then
         call MPI_Finalize(ierr)
      end if
   end subroutine mpi_flow_shutdown