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

Merge pull request #2805 from jjhursey/fix/ibm/base-allgatherv

Просмотр исходного кода 
coll/base: Allgatherv MPI_IN_PLACE Bug
Этот коммит содержится в:
Josh Hursey 2017-01-26 14:21:57 -06:00 коммит произвёл GitHub
родитель b9d7b27cfa a3452adfa9
Коммит 0408c116eb
1 изменённых файлов: 2 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

5
ompi/mca/coll/base/coll_base_allgatherv.c
Просмотреть файл

@ -15,6 +15,7 @@
* reserved. * reserved.
* Copyright (c) 2015-2016 Research Organization for Information Science * Copyright (c) 2015-2016 Research Organization for Information Science
* and Technology (RIST). All rights reserved. * and Technology (RIST). All rights reserved.
* Copyright (c) 2017 IBM Corporation. All rights reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
* Additional copyrights may follow * Additional copyrights may follow
@ -615,9 +616,7 @@ ompi_coll_base_allgatherv_intra_basic_default(const void *sbuf, int scount,
ompi_datatype_get_extent(rdtype, &lb, &extent); ompi_datatype_get_extent(rdtype, &lb, &extent);
send_type = rdtype; send_type = rdtype;
send_buf = (char*)rbuf; send_buf = (char*)rbuf;
for (i = 0; i < rank; ++i) { send_buf += ((ptrdiff_t)disps[rank] * extent);
send_buf += ((ptrdiff_t)rcounts[i] * extent);
}
scount = rcounts[rank]; scount = rcounts[rank];
} else { } else {
send_buf = (char*)sbuf; send_buf = (char*)sbuf;