Transposition with MPI_put

call mpi_barrier(MPI_COMM_WORLD,ierr)

do 150 kk=1,lmtot

ktag=ksendto(kk)

target_disp=(1+(ktag-1)*len)-1

call mpi_put(x(1,ksnding(kk), len, MPI_REAL8, ipsndto(kk), target_disp, len,

MPI_REAL8, iwin, ierr)

150 continue

call mpi_win_fence(0, iwin, ierr)

do kk=1,len*lmtot

y(kk)=yg(kk)

end do

! Cleanup - destroy window

call mpi_barrier(MPI_COMM_WORLD,ierr)

call mpi_win_free(iwin, ierr)

Previous slide Next slide Back to first slide View graphic version