9 #include "ncdispatch.h"
101 MPI_Info info,
int *ncidp)
131 return NC_create(path, cmode, 0, 0, NULL, 1, &data, ncidp);
209 MPI_Info info,
int *ncidp)
219 NC_MPI_INFO mpi_data;
221 mpi_data.comm = comm;
222 mpi_data.info = info;
224 return NC_open(path, omode, 0, NULL, 1, &mpi_data, ncidp);
262 int info,
int *ncidp)
277 #ifdef HAVE_MPI_COMM_F2C
278 comm_c = MPI_Comm_f2c(comm);
280 comm_c = (MPI_Comm)comm;
282 #ifdef HAVE_MPI_INFO_F2C
283 info_c = MPI_Info_f2c(info);
285 info_c = (MPI_Info)info;
288 return nc_open_par(path, omode, comm_c, info_c, ncidp);
371 NC_UNUSED(par_access);
377 if ((stat = NC_check_id(ncid, &ncp)))
380 return ncp->dispatch->var_par_access(ncid,varid,par_access);
424 int info,
int *ncidp)
439 #ifdef HAVE_MPI_COMM_F2C
440 comm_c = MPI_Comm_f2c(comm);
442 comm_c = (MPI_Comm)comm;
444 #ifdef HAVE_MPI_INFO_F2C
445 info_c = MPI_Info_f2c(info);
447 info_c = (MPI_Info)info;