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_zoidfs.h"
9
10 void ADIOI_ZOIDFS_Close(ADIO_File fd, int *error_code)
11 {
12 ADIOI_Free(fd->fs_ptr);
13 fd->fs_ptr = NULL;
14
15 /* At some point or another it was decided that ROMIO would not
16 * explicitly flush (other than any local cache) on close, because
17 * there is no way to *avoid* that overhead if you implement it here
18 * and don't actually want it.
19 */
20
21 *error_code = MPI_SUCCESS;
22 }
23 /*
24 * vim: ts=8 sts=4 sw=4 noexpandtab
25 */