pic_mpi_query_thread_level Function

public function pic_mpi_query_thread_level() result(thread_level)

Uses

  • proc~~pic_mpi_query_thread_level~~UsesGraph proc~pic_mpi_query_thread_level pic_mpi_query_thread_level mpi_f08 mpi_f08 proc~pic_mpi_query_thread_level->mpi_f08

Query the current MPI thread support level

Arguments

None

Return Value integer(kind=int32)


Calls

proc~~pic_mpi_query_thread_level~~CallsGraph proc~pic_mpi_query_thread_level pic_mpi_query_thread_level mpi_query_thread mpi_query_thread proc~pic_mpi_query_thread_level->mpi_query_thread

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: ierr

Source Code

   function pic_mpi_query_thread_level() result(thread_level)
      !! Query the current MPI thread support level
      use mpi_f08, only: MPI_Query_thread
      integer(int32) :: thread_level
      integer(int32) :: ierr

      call MPI_Query_thread(thread_level, ierr)
   end function pic_mpi_query_thread_level