00001 /* -*- Mode: C; c-basic-offset:4 ; -*- */ 00002 /* 00003 * 00004 * Copyright (C) 1997 University of Chicago. 00005 * See COPYRIGHT notice in top-level directory. 00006 */ 00007 00008 #include "ad_zoidfs.h" 00009 00010 void ADIOI_ZOIDFS_Close(ADIO_File fd, int *error_code) 00011 { 00012 ADIOI_Free(fd->fs_ptr); 00013 fd->fs_ptr = NULL; 00014 00015 /* At some point or another it was decided that ROMIO would not 00016 * explicitly flush (other than any local cache) on close, because 00017 * there is no way to *avoid* that overhead if you implement it here 00018 * and don't actually want it. 00019 */ 00020 00021 *error_code = MPI_SUCCESS; 00022 } 00023 /* 00024 * vim: ts=8 sts=4 sw=4 noexpandtab 00025 */
1.5.5