mhdf_parallel.c File Reference

#include "mhdf.h"
#include <time.h>
#include <stdlib.h>
#include <stdio.h>
#include <assert.h>
#include <H5Ppublic.h>
#include <H5Tpublic.h>
#include <H5Epublic.h>
#include <H5FDmpi.h>
#include <H5FDmpio.h>

Include dependency graph for mhdf_parallel.c:

Go to the source code of this file.

Functions
int	main (int argc, char *argv[])

---

Function Documentation

int main	(	int	argc,
		char *	argv[]
	)

Definition at line 288 of file mhdf_parallel.c.

References moab::handle_hdf5_error(), and MPI_COMM_WORLD.

{
#ifdef H5_HAVE_PARALLEL
  int rval;
  void* data;
  herr_t err;

#if defined(H5Eget_auto_vers) && H5Eget_auto_vers > 1
  err = H5Eget_auto( H5E_DEFAULT, &default_handler, &data );
#else
  err = H5Eget_auto( &default_handler, &data );
#endif
  if (err >= 0) {
#if defined(H5Eset_auto_vers) && H5Eset_auto_vers > 1
    H5Eset_auto( H5E_DEFAULT, &handle_hdf5_error, data );
#else
    H5Eset_auto( &handle_hdf5_error, data );
#endif
  }
  
  rval = MPI_Init( &argc, &argv );
  if (rval)
    return rval;
  rval = MPI_Comm_rank( MPI_COMM_WORLD, &RANK );
  if (rval)
    return rval;
  rval = MPI_Comm_size( MPI_COMM_WORLD, &NUM_PROC );
  if (rval)
    return rval;
  
  if (RANK == 0)
    create_file();

  /* Wait for rank 0 to finish creating the file, otherwise rank 1 may find it to be invalid */
  rval = MPI_Barrier(MPI_COMM_WORLD);
  if (rval)
    return rval;

  write_file_data();
  
  MPI_Finalize();
#endif
  return 0;
}