Skip to content
Snippets Groups Projects
Commit c0b7e20f authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Convert CDI-PIO example to new configuration/startup API call.

parent 040227a7
No related branches found
No related tags found
No related merge requests found
......@@ -107,6 +107,8 @@ int main(int argc, char *argv[])
xmpi ( MPI_Comm_set_errhandler ( commGlob, MPI_ERRORS_RETURN ));
xmpi ( MPI_Comm_size ( commGlob, &sizeGlob ));
xmpi ( MPI_Comm_rank ( commGlob, &rankGlob ));
int pioConfHandle = cdiPioConfCreate();
#endif
/* seed random generator */
......@@ -239,8 +241,12 @@ int main(int argc, char *argv[])
#ifdef USE_MPI
int pioNamespace;
commModel = pioInit(commGlob, nProcsIO, IOMode, &pioNamespace, 1.0,
cdiPioNoPostCommSetup);
cdiPioConfSetIOMode(pioConfHandle, IOMode);
cdiPioConfSetCSRole(pioConfHandle, cdiPioCSRLastN(commGlob, IOMode,
nProcsIO));
cdiPioConfSetPartInflate(pioConfHandle, 1.0f);
int initNamespace = namespaceGetActive();
commModel = cdiPioInit(commGlob, pioConfHandle, &pioNamespace);
if (commModel != MPI_COMM_NULL)
{
namespaceSetActive(pioNamespace);
......@@ -252,6 +258,8 @@ int main(int argc, char *argv[])
#ifdef USE_MPI
}
namespaceSetActive(initNamespace);
cdiPioConfDestroy(pioConfHandle);
pioFinalize ();
xt_finalize();
MPI_Finalize ();
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment