00001 /* -*- Mode: C; c-basic-offset:4 ; -*- */ 00002 /* 00003 * $Id$ 00004 * 00005 * Copyright (C) 2001 University of Chicago. 00006 * See COPYRIGHT notice in top-level directory. 00007 */ 00008 00009 #include "ad_testfs.h" 00010 #include "adioi.h" 00011 00012 void ADIOI_TESTFS_Close(ADIO_File fd, int *error_code) 00013 { 00014 int myrank, nprocs; 00015 00016 fd->fd_sys = -1; 00017 *error_code = MPI_SUCCESS; 00018 00019 MPI_Comm_size(fd->comm, &nprocs); 00020 MPI_Comm_rank(fd->comm, &myrank); 00021 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_Close called on %s\n", myrank, 00022 nprocs, fd->filename); 00023 }
1.5.5