00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 #ifndef TESTPAR_H
00019 #define TESTPAR_H
00020
00021 #include "h5test.h"
00022
00023
00024 #define MAX_ERR_REPORT 10
00025
00026
00027
00028
00029 #define MESG(x) \
00030 if (VERBOSE_MED) printf("%s\n", x); \
00031
00032 #define VRFY(val, mesg) do { \
00033 if (val) { \
00034 if (*mesg != '\0') { \
00035 MESG(mesg); \
00036 } \
00037 } else { \
00038 printf("Proc %d: ", mpi_rank); \
00039 printf("*** PHDF5 ERROR ***\n"); \
00040 printf(" Assertion (%s) failed at line %4d in %s\n", \
00041 mesg, (int)__LINE__, __FILE__); \
00042 ++nerrors; \
00043 fflush(stdout); \
00044 if (!VERBOSE_MED) { \
00045 printf("aborting MPI process\n"); \
00046 MPI_Finalize(); \
00047 exit(nerrors); \
00048 } \
00049 } \
00050 } while(0)
00051
00052
00053
00054
00055
00056
00057 #define INFO(val, mesg) do { \
00058 if (val) { \
00059 if (*mesg != '\0') { \
00060 MESG(mesg); \
00061 } \
00062 } else { \
00063 printf("Proc %d: ", mpi_rank); \
00064 printf("*** PHDF5 REMARK (not an error) ***\n"); \
00065 printf(" Condition (%s) failed at line %4d in %s\n", \
00066 mesg, (int)__LINE__, __FILE__); \
00067 fflush(stdout); \
00068 } \
00069 } while(0)
00070
00071 #define MPI_BANNER(mesg) do { \
00072 if (VERBOSE_MED || MAINPROCESS){ \
00073 printf("--------------------------------\n"); \
00074 printf("Proc %d: ", mpi_rank); \
00075 printf("*** %s\n", mesg); \
00076 printf("--------------------------------\n"); \
00077 } \
00078 } while(0)
00079
00080 #define MAINPROCESS (!mpi_rank)
00081
00082 #define SYNC(comm) do { \
00083 MPI_BANNER("doing a SYNC"); \
00084 MPI_Barrier(comm); \
00085 MPI_BANNER("SYNC DONE"); \
00086 } while(0)
00087
00088
00089
00090 #endif