Reformatted r16691 to OMPI style. Re #733
This commit was SVN r16693. The following SVN revision numbers were found above: r16691 --> open-mpi/ompi@8dca19cb3b
Этот коммит содержится в:
родитель
8dca19cb3b
Коммит
037a533752
@ -187,15 +187,16 @@ MPI_File ADIO_Open(MPI_Comm orig_comm,
|
||||
MPI_Bcast(error_code, 1, MPI_INT, \
|
||||
fd->hints->ranklist[0], fd->comm);
|
||||
/* if no error, close the file and reopen normally below */
|
||||
if (*error_code == MPI_SUCCESS)
|
||||
if (*error_code == MPI_SUCCESS) {
|
||||
(*(fd->fns->ADIOI_xxx_Close))(fd, error_code);
|
||||
}
|
||||
else MPI_Bcast(error_code, 1, MPI_INT,
|
||||
} else {
|
||||
MPI_Bcast(error_code, 1, MPI_INT,
|
||||
fd->hints->ranklist[0], fd->comm);
|
||||
}
|
||||
if (*error_code != MPI_SUCCESS) {
|
||||
goto fn_exit;
|
||||
}
|
||||
else {
|
||||
} else {
|
||||
/* turn off EXCL for real open */
|
||||
access_mode = access_mode ^ ADIO_EXCL;
|
||||
}
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user