1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright by The HDF Group. *
* Copyright by the Board of Trustees of the University of Illinois. *
* 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://support.hdfgroup.org/ftp/HDF5/releases. *
* 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) \
if (VERBOSE_MED && *mesg != '\0') \
HDprintf("%s\n", mesg)
/*
* 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 */
|
