1
1

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
Этот коммит содержится в:
Adrian Knoth 2007-11-08 12:54:48 +00:00
родитель 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;
}