00001
00002
00003
00004
00005
00006
00007
00008 #include "ad_pvfs.h"
00009 #include "adio.h"
00010
00011 void ADIOI_PVFS_Delete(char *filename, int *error_code)
00012 {
00013 int err;
00014 static char myname[] = "ADIOI_PVFS_DELETE";
00015
00016 err = pvfs_unlink(filename);
00017 if (err == -1) {
00018 *error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE,
00019 myname, __LINE__, MPI_ERR_IO,
00020 "**io",
00021 "**io %s", strerror(errno));
00022 }
00023 else *error_code = MPI_SUCCESS;
00024 }