46 #define FCALLSC_QUALIFIER PPM_DSO_INTERNAL
59 #if defined (__xlC__) && defined (_AIX)
62 comm_c = (MPI_Initialized(&flag) == MPI_SUCCESS && flag)?
63 MPI_Comm_f2c(*comm_f):
SymPrefix(default_comm);
74 abort_f(
MPI_Fint *comm_f,
const char *msg,
75 const char *source,
int line)
80 #if defined (__xlC__) && defined (_AIX)
83 if (MPI_Initialized(&flag) == MPI_SUCCESS && flag)
84 comm_c = MPI_Comm_f2c(*comm_f);
88 SymPrefix(abort)(comm_c, msg, source, line);
92 PVOID, STRING, STRING, INT)
96 const char source[],
int line)
100 SymPrefix(set_abort_handler_f)(void (*abort_handler)());
103 #define ROUTINE_1 (void (*)())
108 abort_default_f(
MPI_Fint *comm_f,
const char *msg,
const char *source,
113 MPI_Comm comm_c = (MPI_Initialized(&flag) == MPI_SUCCESS && flag)?
114 MPI_Comm_f2c(*comm_f):
SymPrefix(default_comm);
121 #undef FCALLSC_QUALIFIER
122 #define FCALLSC_QUALIFIER
124 #if (defined __GNUC__ && __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ > 5))\
125 || (defined __clang__)
126 #pragma GCC diagnostic push
127 #pragma GCC diagnostic ignored "-Wmissing-prototypes"
132 #if (defined __GNUC__ && __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ > 5))\
133 || (defined __clang__)
134 #pragma GCC diagnostic pop
139 PVOID,STRING,STRING,INT)
145 #define CFC_(UN,LN) (UN)
147 #define CFextern typedef
149 PROTOCCALLSFSUB4(*
SymPrefix(fortran_abort_func),,PVOID,STRING,STRING,INT)
151 #define CFextern static
156 SymPrefix(set_abort_handler_f)(void (*abort_handler)())
159 = (
SymPrefix(fortran_abort_func))abort_handler;
165 const char source[],
int line)
170 #if defined (__xlC__) && defined (_AIX)
173 comm_f = (MPI_Initialized(&flag) == MPI_SUCCESS && flag)?
179 char *msg_arg = (
char *)msg, *source_arg = (
char *)source;
180 #undef CPPPROTOCLSFSUB14
181 #define CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
182 CCALLSFSUB4(*
SymPrefix(fortran_abort_fp),,PVOID,STRING,STRING,INT,
183 &comm_f, msg_arg, source_arg, line);
void SymPrefix() abort_default(MPI_Comm comm, const char *msg, const char *source, int line)
void SymPrefix() restore_default_abort_handler(void)
void SymPrefix() set_default_comm(MPI_Comm comm)
FCALLSCSUB4(abort_f, SYMPREFIX(ABORT), symprefix(abort), PVOID, STRING, STRING, INT)
static void SymPrefix() set_default_comm_f(MPI_Fint *comm_f)
static void SymPrefix() abort_handler_wrapper(MPI_Comm comm, const char msg[], const char source[], int line)
FCALLSCSUB1(SymPrefix(set_default_comm_f), SYMPREFIX(SET_DEFAULT_COMM), symprefix(set_default_comm), PVOID)
FCALLSCSUB0(SymPrefix(restore_default_abort_handler), SYMPREFIX(RESTORE_DEFAULT_ABORT_HNDL), symprefix(restore_default_abort_hndl))
subroutine, public set_abort_handler(f)
set routine f to use as abort function which is called on xt_abort
#define SymPrefix(symbol)
#define symprefix(symbol)
#define SYMPREFIX(symbol)