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