mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-02-05 16:20:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

don't use MPI_COMM_WORLD as default

Browse Source
This commit is contained in:
Ed Hartnett 2018-05-16 09:36:32 -06:00
parent 485f42a51b
commit 2b44cd3470
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
libdispatch/dfile.c
View File

@ -2392,14 +2392,11 @@ openmagic(struct MagicFile* file)
if (file->use_parallel) {
int retval;
MPI_Offset size;
MPI_Comm comm = MPI_COMM_WORLD;
MPI_Info info = MPI_INFO_NULL;
if(file->parameters != NULL) {
comm = ((NC_MPI_INFO*)file->parameters)->comm;
info = ((NC_MPI_INFO*)file->parameters)->info;
}
if((retval = MPI_File_open(comm,(char*)file->path,MPI_MODE_RDONLY,info,
&file->fh)) != MPI_SUCCESS)
assert(file->parameters);
if((retval = MPI_File_open(((NC_MPI_INFO*)file->parameters)->comm,
(char*)file->path,MPI_MODE_RDONLY,
((NC_MPI_INFO*)file->parameters)->info,
&file->fh)) != MPI_SUCCESS)
{status = NC_EPARINIT; goto done;}
/* Get its length */
if((retval=MPI_File_get_size(file->fh, &size)) != MPI_SUCCESS)