Ask for MPI_THREAD_FUNNELED by default

csc-training · Jun 27, 2024 · e907e13 · e907e13
1 parent 91f6406
commit e907e13
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/hybrid/hybrid-hello/solution/hybrid-hello.f90 b/hybrid/hybrid-hello/solution/hybrid-hello.f90
@@ -5,11 +5,11 @@ program hello
     integer :: my_id, tid, rc
     integer :: provided, required=MPI_THREAD_FUNNELED
 
-    ! call MPI_Init_thread(required, provided, rc)
-    call mpi_init(rc)
-    call MPI_Comm_rank(MPI_COMM_WORLD, my_id, rc)
+    call MPI_Init_thread(required, provided, rc)
+    !call MPI_Init(rc)
+    !call MPI_Query_thread(provided, rc)
 
-    call MPI_Query_thread(provided, rc)
+    call MPI_Comm_rank(MPI_COMM_WORLD, my_id, rc)
 
     !$omp parallel private(tid)
     tid = omp_get_thread_num()