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~2~~CallsGraph proc~check_mpi~2 mod_mpi_flow::check_mpi proc~fatal_error mod_kinds::fatal_error proc~check_mpi~2->proc~fatal_error

Called by

proc~~check_mpi~2~~CalledByGraph proc~check_mpi~2 mod_mpi_flow::check_mpi proc~flow_allgather_owned_matrix mod_mpi_flow::flow_allgather_owned_matrix proc~flow_allgather_owned_matrix->proc~check_mpi~2 proc~flow_allgather_owned_matrix_inplace mod_mpi_flow::flow_allgather_owned_matrix_inplace proc~flow_allgather_owned_matrix_inplace->proc~check_mpi~2 proc~flow_allgather_owned_scalar mod_mpi_flow::flow_allgather_owned_scalar proc~flow_allgather_owned_scalar->proc~check_mpi~2 proc~flow_allgather_owned_v4 mod_mpi_flow::flow_allgather_owned_v4 proc~flow_allgather_owned_v4->proc~check_mpi~2 proc~flow_allreduce_global_scalar mod_mpi_flow::flow_allreduce_global_scalar proc~flow_allreduce_global_scalar->proc~check_mpi~2 proc~flow_allreduce_global_vector mod_mpi_flow::flow_allreduce_global_vector proc~flow_allreduce_global_vector->proc~check_mpi~2 proc~flow_exchange_cell_matrix mod_mpi_flow::flow_exchange_cell_matrix proc~flow_exchange_cell_matrix->proc~check_mpi~2 proc~flow_exchange_cell_scalar mod_mpi_flow::flow_exchange_cell_scalar proc~flow_exchange_cell_scalar->proc~check_mpi~2 proc~flow_exchange_face_scalar mod_mpi_flow::flow_exchange_face_scalar proc~flow_exchange_face_scalar->proc~check_mpi~2 proc~flow_gather_owned_matrix_root mod_mpi_flow::flow_gather_owned_matrix_root proc~flow_gather_owned_matrix_root->proc~check_mpi~2 proc~flow_gather_owned_scalar_root mod_mpi_flow::flow_gather_owned_scalar_root proc~flow_gather_owned_scalar_root->proc~check_mpi~2 proc~flow_global_dot_owned mod_mpi_flow::flow_global_dot_owned proc~flow_global_dot_owned->proc~check_mpi~2 proc~flow_global_dots_owned mod_mpi_flow::flow_global_dots_owned proc~flow_global_dots_owned->proc~check_mpi~2 proc~flow_global_max_owned mod_mpi_flow::flow_global_max_owned proc~flow_global_max_owned->proc~check_mpi~2 proc~flow_global_sum_owned mod_mpi_flow::flow_global_sum_owned proc~flow_global_sum_owned->proc~check_mpi~2 proc~flow_global_two_dots_owned mod_mpi_flow::flow_global_two_dots_owned proc~flow_global_two_dots_owned->proc~check_mpi~2 proc~flow_mpi_finalize mod_mpi_flow::flow_mpi_finalize proc~flow_mpi_finalize->proc~check_mpi~2 proc~flow_mpi_initialize mod_mpi_flow::flow_mpi_initialize proc~flow_mpi_initialize->proc~check_mpi~2 proc~flow_mpi_initialize->proc~flow_mpi_finalize proc~setup_owned_gather mod_mpi_flow::setup_owned_gather proc~flow_mpi_initialize->proc~setup_owned_gather proc~mpi_flow_startup mod_mpi_flow::mpi_flow_startup proc~mpi_flow_startup->proc~check_mpi~2 proc~setup_owned_gather->proc~check_mpi~2 proc~advance_energy_transport mod_energy::advance_energy_transport proc~advance_energy_transport->proc~flow_exchange_cell_scalar proc~advance_projection_step mod_flow_projection::advance_projection_step proc~advance_projection_step->proc~flow_exchange_cell_matrix proc~advance_projection_step->proc~flow_exchange_cell_scalar proc~advance_projection_step->proc~flow_exchange_face_scalar proc~compute_flow_diagnostics mod_flow_projection::compute_flow_diagnostics proc~advance_projection_step->proc~compute_flow_diagnostics proc~solve_pressure_correction mod_flow_projection::solve_pressure_correction proc~advance_projection_step->proc~solve_pressure_correction proc~advance_species_transport mod_species::advance_species_transport proc~advance_species_transport->proc~flow_exchange_cell_matrix proc~compute_flow_diagnostics->proc~flow_global_max_owned proc~flow_allgather_owned_vector mod_mpi_flow::flow_allgather_owned_vector proc~flow_allgather_owned_vector->proc~flow_allgather_owned_matrix proc~solve_pressure_correction->proc~flow_exchange_cell_scalar proc~solve_pressure_correction->proc~flow_global_dot_owned proc~solve_pressure_correction->proc~flow_global_two_dots_owned proc~update_transport_properties mod_transport_properties::update_transport_properties proc~update_transport_properties->proc~flow_exchange_cell_matrix proc~update_transport_properties->proc~flow_exchange_cell_scalar program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~flow_mpi_finalize program~lowmach_react_hex->proc~flow_mpi_initialize program~lowmach_react_hex->proc~mpi_flow_startup program~lowmach_react_hex->proc~advance_energy_transport program~lowmach_react_hex->proc~advance_projection_step program~lowmach_react_hex->proc~advance_species_transport program~lowmach_react_hex->proc~compute_flow_diagnostics program~lowmach_react_hex->proc~update_transport_properties

Source Code

   subroutine check_mpi(ierr, where)
      integer, intent(in) :: ierr
      character(len=*), intent(in) :: where
      if (ierr /= MPI_SUCCESS) call fatal_error('mpi_flow', trim(where)//' failed')
   end subroutine check_mpi