上下文： 在我的程序中，主進程正在爲從進程分配工作。一旦從屬過程完成工作，它就會要求主人做更多的工作。主人給奴隸分配更多的工作，程序繼續進行。 我已經編寫了這樣的程序，主進程使用MPI_Recv和MPI_ANY_SOURCE來接收來自從節點的工作。 /* Allot some work to all the slaves (seed) */
while (istheremorework())
的爲什麼這行代碼： if(my_rank != 0) {
sprintf(msg, "Hello from %d of %d...", my_rank, comm_sz);
if(my_rank == 2) {
sleep(2);
sprintf(msg, "Hello from %d of %d, I have slept 2 seconds...",
我看到有人用MPI_Brier使用C（Segmentation fault while using MPI_Barrier in `libpmpi.12.dylib`）和C++（Why does MPI_Barrier cause a segmentation fault in C++）產生段錯誤。但是，我不會重現他們得到的錯誤。 但是，現在我得到了同樣的錯誤fortran MPI_Barrier
我正在嘗試將可分配數組傳遞給子例程。當我使用How to pass allocatable arrays to subroutines in Fortran中提到的串行版本時，它工作正常。以下是我的代碼串行版本。 module test
contains
subroutine func(a,sqa,n)
implicit none
integer, intent(in) :