00001
00002
00003
00004
00005
00006
00007
00008 #include "ad_testfs.h"
00009 #include "adioi.h"
00010
00011 void ADIOI_TESTFS_ReadComplete(ADIO_Request *request, ADIO_Status *status, int
00012 *error_code)
00013 {
00014 int myrank, nprocs;
00015
00016 *error_code = MPI_SUCCESS;
00017
00018 MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
00019 MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
00020 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_ReadComplete called \n",
00021 myrank, nprocs);
00022
00023
00024 }
00025
00026 void ADIOI_TESTFS_WriteComplete(ADIO_Request *request, ADIO_Status *status, int
00027 *error_code)
00028 {
00029 int myrank, nprocs;
00030
00031 *error_code = MPI_SUCCESS;
00032
00033 MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
00034 MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
00035 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_WriteComplete called\n",
00036 myrank, nprocs);
00037
00038
00039 }