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

One step toward the create array completion.

Просмотр исходного кода 
This commit was SVN r11269.
Этот коммит содержится в:
George Bosilca 2006-08-20 15:51:54 +00:00
родитель 8db4a55a57
Коммит 9b4bab7d34
1 изменённых файлов: 2 добавлений и 1 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -96,7 +96,8 @@ int MPI_Type_create_darray(int size,
if( (MPI_DISTRIBUTE_BLOCK != distrib_array[i]) && (MPI_DISTRIBUTE_CYCLIC != distrib_array[i]) &&
(MPI_DISTRIBUTE_NONE != distrib_array[i]) ) {
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG, FUNC_NAME);
} else if( (gsize_array[i] < 1) || (darg_array[i] < 0) || (psize_array[i] < 0) ) {
} else if( (gsize_array[i] < 1) || (psize_array[i] < 0) ||
((darg_array[i] < 0) && (MPI_DISTRIBUTE_DFLT_DARG != darg_array[i]) ) ) {
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG, FUNC_NAME);
} else if( (MPI_DISTRIBUTE_DFLT_DARG != darg_array[i]) &&
(MPI_DISTRIBUTE_BLOCK == distrib_array[i]) &&