ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

MPI_Sendrecv_replace : use the right process convertor

Просмотр исходного кода
Этот коммит содержится в:
Gilles Gouaillardet 2015-05-26 13:02:57 +09:00
родитель 0a2f60994c
Коммит 899fb89392
1 изменённых файлов: 3 добавлений и 1 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/mpi/c/sendrecv_replace.c
Просмотреть файл

@ -10,6 +10,8 @@
* Copyright (c) 2004-2005 The Regents of the University of California. * Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved. * All rights reserved.
* Copyright (c) 2010-2012 Oracle and/or its affiliates. All rights reserved. * Copyright (c) 2010-2012 Oracle and/or its affiliates. All rights reserved.
* Copyright (c) 2015 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
* Additional copyrights may follow * Additional copyrights may follow
@ -87,7 +89,7 @@ int MPI_Sendrecv_replace(void * buf, int count, MPI_Datatype datatype,
size_t packed_size, max_data; size_t packed_size, max_data;
uint32_t iov_count; uint32_t iov_count;
ompi_status_public_t recv_status; ompi_status_public_t recv_status;
ompi_proc_t* proc = ompi_comm_peer_lookup(comm,dest); ompi_proc_t* proc = ompi_comm_peer_lookup(comm,source);
if(proc == NULL) { if(proc == NULL) {
rc = MPI_ERR_RANK; rc = MPI_ERR_RANK;
OMPI_ERRHANDLER_RETURN(rc, comm, rc, FUNC_NAME); OMPI_ERRHANDLER_RETURN(rc, comm, rc, FUNC_NAME);