tmprecv = (char*)rbuf + rdispls[neighbor[0]] * rext;
tmpsend = (char*)rbuf + rdispls[rank] * rext;
smpi_mpi_sendrecv(tmpsend, rcounts[rank], rdtype,
tmprecv = (char*)rbuf + rdispls[neighbor[0]] * rext;
tmpsend = (char*)rbuf + rdispls[rank] * rext;
smpi_mpi_sendrecv(tmpsend, rcounts[rank], rdtype,
tmprecv, rcounts[neighbor[0]], rdtype,
tmprecv, rcounts[neighbor[0]], rdtype,
/* Sendreceive */
smpi_mpi_sendrecv(tmpsend, 1, new_sdtype, neighbor[i_parity],
/* Sendreceive */
smpi_mpi_sendrecv(tmpsend, 1, new_sdtype, neighbor[i_parity],
tmprecv, 1, new_rdtype, neighbor[i_parity],
tmprecv, 1, new_rdtype, neighbor[i_parity],
comm, MPI_STATUS_IGNORE);
send_data_from = recv_data_from[i_parity];
comm, MPI_STATUS_IGNORE);
send_data_from = recv_data_from[i_parity];