root/ompi/mca/fs/ime/fs_ime_file_close.c

DEFINITIONS

1. mca_fs_ime_file_close

   1 /*
   2  * Copyright (c) 2018      DataDirect Networks. All rights reserved.
   3  * $COPYRIGHT$
   4  *
   5  * Additional copyrights may follow
   6  *
   7  * $HEADER$
   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  *      file_close_ime
  21  *
  22  *      Function:       - closes a new file
  23  *      Accepts:        - file handle
  24  *      Returns:        - Success if file closed
  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     /* reset errno */
  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 }