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

main()

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

Definition at line 288 of file mhdf_parallel.c.

{
#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;
}

References moab::handle_hdf5_error(), and MPI_COMM_WORLD.