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_pvfs.h" 9 #include "adio.h" 10 11 void ADIOI_PVFS_Delete(char *filename, int *error_code) 12 { 13 int err; 14 static char myname[] = "ADIOI_PVFS_DELETE"; 15 16 err = pvfs_unlink(filename); 17 if (err == -1) { 18 *error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, 19 myname, __LINE__, MPI_ERR_IO, 20 "**io", 21 "**io %s", strerror(errno)); 22 } 23 else *error_code = MPI_SUCCESS; 24 }