check_mpi Subroutine

private subroutine check_mpi(ierr, where)

Internal helper for MPI error checking.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ierr
character(len=*), intent(in) :: where

Calls

proc~~check_mpi~4~~CallsGraph proc~check_mpi~4 mod_mpi_radiation::check_mpi proc~fatal_error mod_kinds::fatal_error proc~check_mpi~4->proc~fatal_error

Called by

proc~~check_mpi~4~~CalledByGraph proc~check_mpi~4 mod_mpi_radiation::check_mpi proc~radiation_mpi_finalize mod_mpi_radiation::radiation_mpi_finalize proc~radiation_mpi_finalize->proc~check_mpi~4 proc~radiation_mpi_initialize mod_mpi_radiation::radiation_mpi_initialize proc~radiation_mpi_initialize->proc~check_mpi~4 proc~radiation_mpi_initialize->proc~radiation_mpi_finalize program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~radiation_mpi_finalize program~lowmach_react_hex->proc~radiation_mpi_initialize

Source Code

   subroutine check_mpi(ierr, where)
      integer, intent(in) :: ierr
      character(len=*), intent(in) :: where

      if (ierr /= MPI_SUCCESS) call fatal_error('mpi_radiation', trim(where)//' failed')
   end subroutine check_mpi