Hi, If you are worried about the difference between send and recv, just replace my example with:

call MPI_Irecv(buffer,...) ... temp=buffer(1) buffer(1)=temp ... call MPI_Wait() call DD(buffer)

Aleks