dear All,
sorry for your time. I have found the solution:
icount=1
DO iCPU=0,MPI%nCPU-1
IF(iCPU.NE.MPI%rank)THEN
iTag=iCPU
CALL
MPI_ISEND(Ndata2send(iCPU),1,MPI_INTEGER,iCPU,iTag,MPI_COMM_WORLD,send_request(icount),MPI%iErr)
icount=icount+1
ENDIF
ENDDO
ic
Dear all,
I have the following problem:
In my program each rank has a vector, where the position indicates where I
have to send the data.
For example for rank 0, I have:
*ALLOCATE(Ndata2send(0,MPI%nCPU-1)*
*Ndata2send(:) = 0,10,10,16*
where MPI%nCPU is the number of cPU, in my case 4
Thins m
