mirror of https://gitee.com/openkylin/hdf5.git
110 lines
7.2 KiB
C
110 lines
7.2 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* Copyright by The HDF Group. *
|
|
* All rights reserved. *
|
|
* *
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
* the COPYING file, which can be found at the root of the source code *
|
|
* distribution tree, or in https://www.hdfgroup.org/licenses. *
|
|
* If you do not have access to either file, you may request a copy from *
|
|
* help@hdfgroup.org. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
/* common definitions used by all parallel test programs. */
|
|
|
|
#ifndef TESTPAR_H
|
|
#define TESTPAR_H
|
|
|
|
/* Indicate that these are parallel tests, for the testing framework */
|
|
#define H5_PARALLEL_TEST
|
|
|
|
#include "h5test.h"
|
|
|
|
/* Constants definitions */
|
|
#define MAX_ERR_REPORT 10 /* Maximum number of errors reported */
|
|
|
|
/* Define some handy debugging shorthands, routines, ... */
|
|
/* debugging tools */
|
|
|
|
/* Print message mesg if verbose level is at least medium and
|
|
* mesg is not an empty string.
|
|
*/
|
|
#define MESG(mesg) \
|
|
do { \
|
|
if (VERBOSE_MED && *mesg != '\0') { \
|
|
HDprintf("%s\n", mesg); \
|
|
} \
|
|
} while (0)
|
|
|
|
/*
|
|
* VRFY: Verify if the condition val is true.
|
|
* If it is true, then call MESG to print mesg, depending on the verbose
|
|
* level.
|
|
* If val is not true, it prints error messages and if the verbose
|
|
* level is lower than medium, it calls MPI_Abort to abort the program.
|
|
* If verbose level is at least medium, it will not abort.
|
|
* This will allow program to continue and can be used for debugging.
|
|
* (The "do {...} while(0)" is to group all the statements as one unit.)
|
|
*/
|
|
#define VRFY_IMPL(val, mesg, rankvar) \
|
|
do { \
|
|
if (val) { \
|
|
MESG(mesg); \
|
|
} \
|
|
else { \
|
|
HDprintf("Proc %d: ", rankvar); \
|
|
HDprintf("*** Parallel ERROR ***\n"); \
|
|
HDprintf(" VRFY (%s) failed at line %4d in %s\n", mesg, (int)__LINE__, __FILE__); \
|
|
++nerrors; \
|
|
fflush(stdout); \
|
|
if (!VERBOSE_MED) { \
|
|
HDprintf("aborting MPI processes\n"); \
|
|
MPI_Abort(MPI_COMM_WORLD, 1); \
|
|
} \
|
|
} \
|
|
} while (0)
|
|
|
|
#define VRFY_G(val, mesg) VRFY_IMPL(val, mesg, mpi_rank_g)
|
|
#define VRFY(val, mesg) VRFY_IMPL(val, mesg, mpi_rank)
|
|
|
|
/*
|
|
* Checking for information purpose.
|
|
* If val is false, print mesg; else nothing.
|
|
* Either case, no error setting.
|
|
*/
|
|
#define INFO(val, mesg) \
|
|
do { \
|
|
if (val) { \
|
|
MESG(mesg); \
|
|
} \
|
|
else { \
|
|
HDprintf("Proc %d: ", mpi_rank); \
|
|
HDprintf("*** PHDF5 REMARK (not an error) ***\n"); \
|
|
HDprintf(" Condition (%s) failed at line %4d in %s\n", mesg, (int)__LINE__, __FILE__); \
|
|
fflush(stdout); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define MPI_BANNER(mesg) \
|
|
do { \
|
|
if (VERBOSE_MED || MAINPROCESS) { \
|
|
HDprintf("--------------------------------\n"); \
|
|
HDprintf("Proc %d: ", mpi_rank); \
|
|
HDprintf("*** %s\n", mesg); \
|
|
HDprintf("--------------------------------\n"); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define MAINPROCESS (!mpi_rank) /* define process 0 as main process */
|
|
|
|
#define SYNC(comm) \
|
|
do { \
|
|
MPI_BANNER("doing a SYNC"); \
|
|
MPI_Barrier(comm); \
|
|
MPI_BANNER("SYNC DONE"); \
|
|
} while (0)
|
|
|
|
/* End of Define some handy debugging shorthands, routines, ... */
|
|
|
|
#endif /* TESTPAR_H */
|