*request = MPI_REQUEST_NULL;
retval = MPI_SUCCESS;
} else if (dst >= smpi_group_size(smpi_comm_group(comm)) || dst <0){
- retval = MPI_ERR_COMM;
+ retval = MPI_ERR_RANK;
} else if (count < 0) {
retval = MPI_ERR_COUNT;
} else if (buf==NULL && count > 0) {
*request = MPI_REQUEST_NULL;
retval = MPI_SUCCESS;
} else if (dst >= smpi_group_size(smpi_comm_group(comm)) || dst <0){
- retval = MPI_ERR_COMM;
+ retval = MPI_ERR_RANK;
} else if (count < 0) {
retval = MPI_ERR_COUNT;
} else if (buf==NULL && count > 0) {
status->MPI_SOURCE = MPI_PROC_NULL;
retval = MPI_SUCCESS;
} else if (src!=MPI_ANY_SOURCE && (src >= smpi_group_size(smpi_comm_group(comm)) || src <0)){
- retval = MPI_ERR_COMM;
+ retval = MPI_ERR_RANK;
} else if (count < 0) {
retval = MPI_ERR_COUNT;
} else if (buf==NULL && count > 0) {
} else if (dst == MPI_PROC_NULL) {
retval = MPI_SUCCESS;
} else if (dst >= smpi_group_size(smpi_comm_group(comm)) || dst <0){
- retval = MPI_ERR_COMM;
+ retval = MPI_ERR_RANK;
} else if (count < 0) {
retval = MPI_ERR_COUNT;
} else if (buf==NULL && count > 0) {
} else if (dst == MPI_PROC_NULL) {
retval = MPI_SUCCESS;
} else if (dst >= smpi_group_size(smpi_comm_group(comm)) || dst <0){
- retval = MPI_ERR_COMM;
+ retval = MPI_ERR_RANK;
} else if (count < 0) {
retval = MPI_ERR_COUNT;
} else if (buf==NULL && count > 0) {
retval = MPI_SUCCESS;
}else if (dst >= smpi_group_size(smpi_comm_group(comm)) || dst <0 ||
(src!=MPI_ANY_SOURCE && (src >= smpi_group_size(smpi_comm_group(comm)) || src <0))){
- retval = MPI_ERR_COMM;
+ retval = MPI_ERR_RANK;
} else if (sendcount < 0 || recvcount<0) {
retval = MPI_ERR_COUNT;
} else if ((sendbuf==NULL && sendcount > 0)||(recvbuf==NULL && recvcount>0)) {