MPITests/ThreadMultiple/thread_single.F90 at main · mathomp4/MPITests · GitHub

Sitelet https://github.com/mathomp4/MPITests/blob/main/ThreadMultiple/thread_single.F90

15 lines (13 loc) · 390 Bytes

program main
   implicit none
   integer :: ierror, provided
   call MPI_Init_thread(MPI_THREAD_SINGLE, provided, ierror)
   if (provided  < MPI_THREAD_SINGLE) THEN
      print *, "We do not support MPI_THREAD_SINGLE"
      call MPI_Abort(MPI_COMM_WORLD, -1, ierror)
      print *, "We support MPI_THREAD_SINGLE"
   call MPI_Finalize(ierror)
end program main