Query the current MPI thread support level
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=int32), | private | :: | ierr |
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