60 #ifndef WITHOUT_FORTRAN
61 # if defined __clang__
62 # pragma GCC diagnostic push
63 # pragma GCC diagnostic ignored "-Wreserved-id-macro"
64 # pragma GCC diagnostic ignored "-Wstrict-prototypes"
66 # include <cfortran.h>
67 # if defined __clang__
68 # pragma GCC diagnostic pop
81 #ifndef WITHOUT_FORTRAN
82 #define F2C_Data COMMON_BLOCK(SYMPREFIX(F2C_DATA),symprefix(f2c_data))
97 #ifndef WITHOUT_FORTRAN
100 comm_f = MPI_Comm_c2f(comm);
104 F2C_Data.symprefix(default_comm) = comm_f;
112 fprintf(stderr,
"Fatal error in %s, line %d: %s\n", source, line, msg);
114 #if defined (__xlC__) && defined (_AIX)
void SymPrefix() abort_default(MPI_Comm comm, const char *msg, const char *source, int line)
COMMON_BLOCK_DEF(SymPrefix(F2C_Def), F2C_Data)
MPI_Comm SymPrefix(default_comm)
void SymPrefix() restore_default_abort_handler(void)
void SymPrefix() set_default_comm(MPI_Comm comm)
MPI_Fint symprefix(default_comm)
Define library-specific symbol prefix macros.