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 */