parallel processing - MPI_TEST: invalid mpi_request -
i want test if mpi_isend , mpi_irecv have run fine. i have 2 request(argument) vectors: 1 vector mpi_isend, other mpi_irecv. the point program runs fine until started run cycle mpi_test. have tried 2 numbers (do i=1,2), still same error. fatal error in pmpi_test: invalid mpi_request, error stack: pmpi_test(166): mpi_test(request=0x7fff93fd2220, flag=0x7fff93fd1ffc, status=0x7fff93fd2890) failed pmpi_test(121): invalid mpi_request integer :: ierr, myid, istatus(mpi_status_size), num, i, n integer,parameter :: seed = 86456, numbers=200 integer :: req1(numbers), req2(numbers) logical :: flag call mpi_comm_rank(mpi_comm_world, myid, ierr) if (myid==0) n=1, numbers req1(n)=0 req2(n)=0 num=irand() call mpi_isend(num,1,mpi_integer,1,1,mpi_comm_world,req1(n),ierr) call mpi_irecv(best_prime,1,mpi_integer,1,0,mpi_comm_world,req2(n),ierr) end else if (myid==1) i=1, numbers call mpi_test(req2(i),flag,istatus,ie...