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