void MPICH_Localcopy(void *sendbuf, int sendcount, MPI_Datatype sendtype, void *recvbuf, int recvcount, MPI_Datatype recvtype) { int rank; AMPI_Comm_rank (MPI_COMM_WORLD, &rank); AMPI_Sendrecv ( sendbuf, sendcount, sendtype, rank, MPI_ATA_TAG, recvbuf, recvcount, recvtype, rank, MPI_ATA_TAG, MPI_COMM_WORLD, MPI_STATUS_IGNORE); }
void mpi_comm_rank(int *comm, int *rank, int *ierr) { *ierr = AMPI_Comm_rank(*comm, rank); }