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,ierr)         if (flag .eqv. .false.)             write(*,*)'recv',i,'non-blocking fail'         else if (flag .eqv. .true.)             write(*,*)'recv',i,'non-blocking success'         end if     end  end if 


Comments

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

Android soft keyboard reverts to default keyboard on orientation change -

jquery - javascript onscroll fade same class but with different div -