void ADIOI_UFS_ReadStrided(ADIO_File fd, void *buf, int count,
MPI_Datatype datatype, int file_ptr_type,
ADIO_Offset offset, ADIO_Status *status, int
*error_code)
{
ADIOI_GEN_ReadStrided(fd, buf, count, datatype, file_ptr_type,
offset, status, error_code);
}
void ADIOI_PVFS_ReadStrided(ADIO_File fd, void *buf, int count,
MPI_Datatype datatype, int file_ptr_type,
ADIO_Offset offset, ADIO_Status *status, int
*error_code)
{
#ifdef HAVE_PVFS_LISTIO
if ( fd->hints->fs_hints.pvfs.listio_read == ADIOI_HINT_ENABLE) {
ADIOI_PVFS_ReadStridedListIO(fd, buf, count, datatype, file_ptr_type,
offset, status, error_code);
return;
}
#endif
/* If hint set to DISABLE or AUTOMATIC, don't use listio */
ADIOI_GEN_ReadStrided(fd, buf, count, datatype, file_ptr_type,
offset, status, error_code);
}
void ADIOI_PVFS2_ReadStrided(ADIO_File fd, void *buf, int count,
MPI_Datatype datatype, int file_ptr_type,
ADIO_Offset offset, ADIO_Status *status, int
*error_code)
{
/* four ways (to date) that we can carry out strided i/o accesses:
* - naive posix
* - 'true' Datatype (from avery)
* - new List I/O (from avery)
* - classic List I/O (the one that's always been in ROMIO)
* I imagine we'll keep Datatype as an optional optimization, and afer a
* release or two promote it to the default
*/
int ret = -1;
if (fd->hints->fs_hints.pvfs2.posix_read == ADIOI_HINT_ENABLE) {
ADIOI_GEN_ReadStrided(fd, buf, count, datatype,
file_ptr_type, offset, status, error_code);
return;
}
if (fd->hints->fs_hints.pvfs2.dtype_read == ADIOI_HINT_ENABLE) {
ret = ADIOI_PVFS2_ReadStridedDtypeIO(fd, buf, count,
datatype, file_ptr_type,
offset, status, error_code);
/* Fall back to list I/O if datatype I/O didn't work */
if (ret != 0)
{
fprintf(stderr,
"Falling back to list I/O since datatype I/O failed\n");
ret = ADIOI_PVFS2_ReadStridedListIO(fd, buf, count,
datatype, file_ptr_type,
offset, status, error_code);
}
return;
}
if (fd->hints->fs_hints.pvfs2.listio_read == ADIOI_HINT_ENABLE) {
ret = ADIOI_PVFS2_ReadStridedListIO(fd, buf, count, datatype,
file_ptr_type, offset, status, error_code);
return;
}
/* Use classic list I/O if no hints given base case */
ADIOI_PVFS2_OldReadStrided(fd, buf, count, datatype,
file_ptr_type, offset, status, error_code);
return;
}
void ADIOI_TESTFS_ReadStrided(ADIO_File fd, void *buf, int count,
MPI_Datatype datatype, int file_ptr_type,
ADIO_Offset offset, ADIO_Status * status, int
*error_code)
{
int myrank, nprocs;
*error_code = MPI_SUCCESS;
MPI_Comm_size(fd->comm, &nprocs);
MPI_Comm_rank(fd->comm, &myrank);
FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_ReadStrided called on %s\n", myrank,
nprocs, fd->filename);
FPRINTF(stdout, "[%d/%d] calling ADIOI_GEN_ReadStrided\n", myrank, nprocs);
ADIOI_GEN_ReadStrided(fd, buf, count, datatype, file_ptr_type, offset, status, error_code);
}
