collect_resnorm_from_all_blocks Subroutine

  1. resnorm.f90
  2. resnorm
  3. collect_resnorm_from_all_blocks

private subroutine collect_resnorm_from_all_blocks(control)

MPI Communication to gather residual from all processes

Arguments

Type IntentOptional AttributesName
type(controltype), intent(in) :: control

Control parameters: number of variables

Calls

proc~~collect_resnorm_from_all_blocks~~CallsGraph proc~collect_resnorm_from_all_blocks collect_resnorm_from_all_blocks mpi_allgather mpi_allgather proc~collect_resnorm_from_all_blocks->mpi_allgather

Called by

proc~~collect_resnorm_from_all_blocks~~CalledByGraph proc~collect_resnorm_from_all_blocks collect_resnorm_from_all_blocks proc~find_resnorm find_resnorm proc~find_resnorm->proc~collect_resnorm_from_all_blocks proc~iterate_one_more_time_step iterate_one_more_time_step proc~iterate_one_more_time_step->proc~find_resnorm program~main main program~main->proc~iterate_one_more_time_step

Contents

Source Code

collect_resnorm_from_all_blocks

Source Code

    subroutine collect_resnorm_from_all_blocks(control)
      !< MPI Communication to gather residual from all processes
      implicit none
      type(controltype), intent(in) :: control
      !< Control parameters: number of variables
      integer :: ierr
      call MPI_ALLGATHER(Res_abs, control%n_var+1, MPI_DOUBLE_PRECISION, &
      buffer, control%n_var+1, MPI_DOUBLE_PRECISION, MPI_COMM_WORLD, ierr)
    end subroutine collect_resnorm_from_all_blocks