par_AllReduce_scalar_int Subroutine

private subroutine par_AllReduce_scalar_int(scalar_int, parOP)

Uses

  • proc~~par_allreduce_scalar_int~~UsesGraph proc~par_allreduce_scalar_int par_AllReduce_scalar_int module~modgvec_globals MODgvec_Globals proc~par_allreduce_scalar_int->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

Find MAX/MIN/SUM scalar value across MPI ranks and bradcast result back to all MPI ranks.

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: scalar_int
character(len=3), intent(in) :: parOP

Calls

proc~~par_allreduce_scalar_int~~CallsGraph proc~par_allreduce_scalar_int par_AllReduce_scalar_int mpi_allreduce mpi_allreduce proc~par_allreduce_scalar_int->mpi_allreduce

Called by

proc~~par_allreduce_scalar_int~~CalledByGraph proc~par_allreduce_scalar_int par_AllReduce_scalar_int interface~par_allreduce par_AllReduce interface~par_allreduce->proc~par_allreduce_scalar_int proc~buildprecond BuildPrecond proc~buildprecond->interface~par_allreduce proc~evalaux EvalAux proc~evalaux->interface~par_allreduce proc~evalenergy EvalEnergy proc~evalenergy->interface~par_allreduce proc~evalenergy->proc~evalaux proc~evalforce EvalForce proc~evalforce->proc~buildprecond proc~evalforce->proc~evalaux proc~evaltotals EvalTotals proc~evaltotals->proc~evalaux proc~initsolutionmhd3d t_functional_mhd3d%InitSolutionMHD3D proc~initsolutionmhd3d->proc~evalenergy proc~initsolutionmhd3d->proc~evalforce interface~writestate WriteState proc~initsolutionmhd3d->interface~writestate proc~minimizemhd3d_descent MinimizeMHD3D_descent proc~minimizemhd3d_descent->proc~evalaux proc~minimizemhd3d_descent->proc~evalenergy proc~minimizemhd3d_descent->proc~evalforce proc~minimizemhd3d_descent->interface~writestate program~gvec_post GVEC_POST program~gvec_post->proc~evalenergy program~gvec_post->proc~evalforce proc~minimizemhd3d t_functional_mhd3d%MinimizeMHD3D proc~minimizemhd3d->proc~minimizemhd3d_descent proc~writestatetoascii WriteStateToASCII proc~writestatetoascii->proc~evaltotals interface~writestate->proc~writestatetoascii

Source Code

  SUBROUTINE par_AllReduce_scalar_int(scalar_int,parOP)
  ! MODULES
    USE MODgvec_Globals, ONLY : wp
    IMPLICIT NONE
  !--------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
    INTEGER, INTENT(INOUT)       :: scalar_int
    CHARACTER(LEN=3), INTENT(IN) :: parOP
  !--------------------------------------------------------------------------------------------------------------------------------
  ! LOCAL VARIABLES
    INTEGER     :: ierr
#   if MPI
    MPI_op_TYPE :: mpiOP
  !================================================================================================================================
  ! BODY
    SELECT CASE(parOP)
      CASE('MAX')
        mpiOP=MPI_MAX
      CASE('MIN')
        mpiOP=MPI_MIN
      CASE('SUM')
        mpiOP=MPI_SUM
    END SELECT
    CALL MPI_AllReduce(MPI_IN_PLACE, scalar_int, 1, MPI_INTEGER, mpiOP, worldComm, ierr)
#   endif
  END SUBROUTINE par_AllReduce_scalar_int