10 #include "ncdispatch.h"
14 nc_create_par(
const char *path,
int cmode, MPI_Comm comm,
15 MPI_Info info,
int *ncidp)
30 comm_c = (MPI_Comm)comm;
31 info_c = (MPI_Info)info;
35 return NC_create(path, cmode, 0, 0, NULL, 1, &data, ncidp);
41 nc_open_par(
const char *path,
int mode, MPI_Comm comm,
42 MPI_Info info,
int *ncidp)
51 if (!(mode &
NC_MPIIO || mode & NC_MPIPOSIX) &&
58 return NC_open(path, mode, 0, NULL, 1, &mpi_data, ncidp);
64 nc_open_par_fortran(
const char *path,
int mode,
int comm,
76 #ifdef HAVE_MPI_COMM_F2C
77 comm_c = MPI_Comm_f2c(comm);
78 info_c = MPI_Info_f2c(info);
80 comm_c = (MPI_Comm)comm;
81 info_c = (MPI_Info)info;
84 return nc_open_par(path, mode, comm_c, info_c, ncidp);
91 nc_var_par_access(
int ncid,
int varid,
int par_access)
96 if ((stat = NC_check_id(ncid, &ncp)))
102 return ncp->dispatch->var_par_access(ncid,varid,par_access);
108 nc_create_par_fortran(
const char *path,
int cmode,
int comm,
109 int info,
int *ncidp)
117 #ifdef HAVE_MPI_COMM_F2C
118 comm_c = MPI_Comm_f2c(comm);
119 info_c = MPI_Info_f2c(info);
121 comm_c = (MPI_Comm)comm;
122 info_c = (MPI_Info)info;
125 return nc_create_par(path, cmode, comm_c, info_c, ncidp);