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

More comprehensible error messages.

Просмотр исходного кода 
This commit was SVN r32007.
Этот коммит содержится в:
George Bosilca 2014-06-16 20:23:16 +00:00
родитель 561983ae52
Коммит 84193fff6d
1 изменённых файлов: 8 добавлений и 6 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -59,30 +59,31 @@ int MPI_Dist_graph_create_adjacent(MPI_Comm comm_old,
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_COMM, return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_COMM,
FUNC_NAME); FUNC_NAME);
} else if (indegree < 0 || outdegree < 0 || NULL == comm_dist_graph) { } else if (indegree < 0 || outdegree < 0 || NULL == comm_dist_graph) {
return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG, "MPI_Dist_create_graph_adjacent 1"); return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG,
"MPI_Dist_graph_create_adjacent negative degree");
} else if ((indegree > 0 && } else if ((indegree > 0 &&
(NULL == sources || NULL == sourceweights)) || (NULL == sources || NULL == sourceweights)) ||
(outdegree > 0 && (outdegree > 0 &&
(NULL == destinations || NULL == destweights))) { (NULL == destinations || NULL == destweights))) {
return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG, "MPI_Dist_create_graph adjacent 2"); return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG, "MPI_Dist_graph_create_adjacent mismatched sources or destinations");
} }
comm_size = ompi_comm_size(comm_old); comm_size = ompi_comm_size(comm_old);
for (i = 0; i < indegree; ++i) { for (i = 0; i < indegree; ++i) {
if (sources[i] < 0 || sources[i] >= comm_size) { if (sources[i] < 0 || sources[i] >= comm_size) {
return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG, return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG,
FUNC_NAME); "MPI_Dist_graph_create_adjacent invalid sources");
} else if (MPI_UNWEIGHTED != sourceweights && sourceweights[i] < 0) { } else if (MPI_UNWEIGHTED != sourceweights && sourceweights[i] < 0) {
return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG, return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG,
"MPI_Dist_create_graph adjacent 3"); "MPI_Dist_graph_create_adjacent invalid sourceweights");
} }
} }
for (i = 0; i < outdegree; ++i) { for (i = 0; i < outdegree; ++i) {
if (destinations[i] < 0 || destinations[i] >= comm_size) { if (destinations[i] < 0 || destinations[i] >= comm_size) {
return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG, return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG,
FUNC_NAME); "MPI_Dist_graph_create_adjacent invalid destinations");
} else if (MPI_UNWEIGHTED != destweights && destweights[i] < 0) { } else if (MPI_UNWEIGHTED != destweights && destweights[i] < 0) {
return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG, return OMPI_ERRHANDLER_INVOKE(comm_old, MPI_ERR_ARG,
"MPI_Dist_create_graph_adjacent 4\n"); "MPI_Dist_graph_create_adjacent invalid destweights");
} }
} }
} }
@ -100,3 +101,4 @@ int MPI_Dist_graph_create_adjacent(MPI_Comm comm_old,
reorder, comm_dist_graph); reorder, comm_dist_graph);
OMPI_ERRHANDLER_RETURN(err, comm_old, err, FUNC_NAME); OMPI_ERRHANDLER_RETURN(err, comm_old, err, FUNC_NAME);
} }