root/ompi/mca/fs/base/fs_base_file_close.c

DEFINITIONS

1. mca_fs_base_file_close

   1 /*
   2  * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
   3  *                         University Research and Technology
   4  *                         Corporation.  All rights reserved.
   5  * Copyright (c) 2004-2017 The University of Tennessee and The University
   6  *                         of Tennessee Research Foundation.  All rights
   7  *                         reserved.
   8  * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
   9  *                         University of Stuttgart.  All rights reserved.
  10  * Copyright (c) 2004-2005 The Regents of the University of California.
  11  *                         All rights reserved.
  12  * Copyright (c) 2008-2018 University of Houston. All rights reserved.
  13  * Copyright (c) 2018      Research Organization for Information Science
  14  *                         and Technology (RIST). All rights reserved.
  15  * $COPYRIGHT$
  16  *
  17  * Additional copyrights may follow
  18  *
  19  * $HEADER$
  20  */
  21 
  22 
  23 #include "ompi_config.h"
  24 #include "base.h"
  25 
  26 #include <fcntl.h>
  27 #include <unistd.h>
  28 #include "mpi.h"
  29 #include "ompi/constants.h"
  30 #include "ompi/mca/fs/fs.h"
  31 
  32 /*
  33  *      file_close_ufs
  34  *
  35  *      Function:       - closes a new file
  36  *      Accepts:        - file handle
  37  *      Returns:        - Success if file closed
  38  */
  39 int mca_fs_base_file_close (ompio_file_t *fh)
  40 {
  41     fh->f_comm->c_coll->coll_barrier (fh->f_comm,
  42                                      fh->f_comm->c_coll->coll_barrier_module);
  43     /*    close (*(int *)fh->fd);*/
  44     close (fh->fd);
  45     /*    if (NULL != fh->fd)
  46     {
  47         free (fh->fd);
  48         fh->fd = NULL;
  49         }*/
  50     return OMPI_SUCCESS;
  51 }