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

Allow MPI_ANY_TAG to probe for when MPI_PARAM_CHECKing.

Просмотр исходного кода 
This commit was SVN r4123.
Этот коммит содержится в:
Rainer Keller 2005-01-24 22:23:15 +00:00
родитель 1d8b5fa865
Коммит 7d37584e67
2 изменённых файлов: 2 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

2
src/mpi/c/iprobe.c
Просмотреть файл

@ -46,7 +46,7 @@ int MPI_Iprobe(int source, int tag, MPI_Comm comm, int *flag, MPI_Status *status
if ( MPI_PARAM_CHECK ) {
rc = MPI_SUCCESS;
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
if (tag < 0 || tag > MPI_TAG_UB_VALUE) {
if (((tag < 0) && (tag != MPI_ANY_TAG)) || (tag > MPI_TAG_UB_VALUE)) {
rc = MPI_ERR_TAG;
} else if (ompi_comm_invalid(comm)) {
rc = MPI_ERR_COMM;

2
src/mpi/c/probe.c
Просмотреть файл

@ -45,7 +45,7 @@ int MPI_Probe(int source, int tag, MPI_Comm comm, MPI_Status *status)
if ( MPI_PARAM_CHECK ) {
rc = MPI_SUCCESS;
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
if (tag < 0 || tag > MPI_TAG_UB_VALUE) {
if (((tag < 0) && (tag != MPI_ANY_TAG)) || (tag > MPI_TAG_UB_VALUE)) {
rc = MPI_ERR_TAG;
} else if (ompi_comm_invalid(comm)) {
rc = MPI_ERR_COMM;