1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
2 /*
3 *
4 * Copyright (C) 1997 University of Chicago.
5 * See COPYRIGHT notice in top-level directory.
6 */
7
8 #include "ad_pvfs2.h"
9
10 void ADIOI_PVFS2_Close(ADIO_File fd, int *error_code)
11 {
12 ADIOI_Free(fd->fs_ptr);
13 fd->fs_ptr = NULL;
14 /* PVFS2 doesn't have a 'close', but MPI-IO semantics dictate that we
15 * ensure all data has been flushed.
16 */
17
18 /* At some point or another it was decided that ROMIO would not
19 * explicitly flush (other than any local cache) on close, because
20 * there is no way to *avoid* that overhead if you implement it here
21 * and don't actually want it.
22 */
23
24 *error_code = MPI_SUCCESS;
25 }
26 /*
27 * vim: ts=8 sts=4 sw=4 noexpandtab
28 */