xref: /phasta/phSolver/common/test/phIOreadheader.cc (revision 0bfd29162c763803e760e1c0b5b3d9fbb074d255)
1 #include <mpi.h>
2 #include <assert.h>
3 #include "phIO.h"
4 
5 int main(int argc, char* argv[]) {
6   MPI_Init(&argc,&argv);
7   int numberOfNodes[2];
8   const char* iotype = "binary";
9   int nfiles[2] = {1,2};
10   int file = 0;
11   int one = 1;
12   for(int i=0; i<2; i++) {
13     phio_openfile_read("geombc", nfiles, &file);
14     phio_readheader(&file, "number of nodes", &(numberOfNodes[i]),
15         &one, "integer", iotype);
16     phio_closefile_read(&file);
17   }
18   int match = (numberOfNodes[0] == numberOfNodes[1]);
19   MPI_Finalize();
20   return match;
21 }
22