MPImaxfind Subroutine

public subroutine MPImaxfind()

Arguments

None

Calls

proc~~mpimaxfind~~CallsGraph proc~mpimaxfind MPImaxfind mpi_allreduce mpi_allreduce proc~mpimaxfind->mpi_allreduce mpi_error_string mpi_error_string proc~mpimaxfind->mpi_error_string

Called by

proc~~mpimaxfind~~CalledByGraph proc~mpimaxfind MPImaxfind proc~evaulatech EvaulateCh proc~evaulatech->proc~mpimaxfind

Source Code

subroutine MPImaxfind
  implicit none
  integer :: err_len
  character(len=MPI_MAX_ERROR_STRING) :: err_string
!$acc host_data use_device(bufinpmax,bufoutmax)
       call MPI_ALLREDUCE( bufinpmax(1), bufoutmax(1), 1 &
     &                   , MPI_2DOUBLE_PRECISION   &
     &                   , MPI_MAXLOC, comm3d, ierr)
!$acc end host_data
       if (ierr /= MPI_SUCCESS) then
          call MPI_Error_string(ierr, err_string, err_len, ierr)
          print *,"error in MPIminfind", trim(err_string)
       endif
end subroutine MPImaxfind