Transposition with MPI_put
common/buffer/ yg(length)
integer(kind=MPI_ADDRESS_KIND) winsize, target_disp
! Setup: create a window for array yg since we will do puts into it
call MPI_type_extent(MPI_REAL8, isizereal8, ierr)
winsize=isizereal8*length
call MPI_win_create(yg, winsize, isizereal8, MPI_INFO_NULL, MPI_COMM_WORLD, iwin, ierr)