This source file includes following definitions.
- mca_fs_ime_file_close
1
2
3
4
5
6
7
8
9
10 #include "ime_native.h"
11
12 #include "ompi_config.h"
13 #include "fs_ime.h"
14
15 #include "mpi.h"
16 #include "ompi/constants.h"
17 #include "ompi/mca/fs/fs.h"
18
19
20
21
22
23
24
25
26 int mca_fs_ime_file_close (ompio_file_t *fh)
27 {
28 int ret;
29
30 fh->f_comm->c_coll->coll_barrier (fh->f_comm,
31 fh->f_comm->c_coll->coll_barrier_module);
32
33 errno = 0;
34
35 ret = ime_native_close(fh->fd);
36 if (ret != 0) {
37 return mca_fs_ime_get_mpi_err(errno);
38 }
39
40 return OMPI_SUCCESS;
41 }