#include <stdio.h>
#include "cfortran.h"
#include "core/ppm_visibility.h"
#include "core.h"
Go to the source code of this file.
|
#define | FCALLSC_QUALIFIER PPM_DSO_INTERNAL |
|
#define | ROUTINE_1 (void (*)()) |
|
#define | FCALLSC_QUALIFIER |
|
#define | CFC_(UN, LN) (UN) |
|
#define | CFextern typedef |
|
#define | CFextern static |
|
#define | CPPPROTOCLSFSUB14(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE) |
|
|
static void SymPrefix() | set_default_comm_f (MPI_Fint *comm_f) |
|
| FCALLSCSUB1 (SymPrefix(set_default_comm_f), SYMPREFIX(SET_DEFAULT_COMM), symprefix(set_default_comm), PVOID) |
|
| FCALLSCSUB4 (abort_f, SYMPREFIX(ABORT), symprefix(abort), PVOID, STRING, STRING, INT) |
|
| FCALLSCSUB0 (SymPrefix(restore_default_abort_handler), SYMPREFIX(RESTORE_DEFAULT_ABORT_HNDL), symprefix(restore_default_abort_hndl)) |
|
static void SymPrefix() | abort_handler_wrapper (MPI_Comm comm, const char msg[], const char source[], int line) |
|
◆ CFC_
#define CFC_ |
( |
|
UN, |
|
|
|
LN |
|
) |
| (UN) |
◆ CFextern [1/2]
◆ CFextern [2/2]
◆ CPPPROTOCLSFSUB14
#define CPPPROTOCLSFSUB14 |
( |
|
UN, |
|
|
|
LN, |
|
|
|
T1, |
|
|
|
T2, |
|
|
|
T3, |
|
|
|
T4, |
|
|
|
T5, |
|
|
|
T6, |
|
|
|
T7, |
|
|
|
T8, |
|
|
|
T9, |
|
|
|
TA, |
|
|
|
TB, |
|
|
|
TC, |
|
|
|
TD, |
|
|
|
TE |
|
) |
| |
◆ FCALLSC_QUALIFIER [1/2]
◆ FCALLSC_QUALIFIER [2/2]
#define FCALLSC_QUALIFIER |
◆ ROUTINE_1
#define ROUTINE_1 (void (*)()) |
◆ abort_handler_wrapper()
static void SymPrefix() abort_handler_wrapper |
( |
MPI_Comm |
comm, |
|
|
const char |
msg[], |
|
|
const char |
source[], |
|
|
int |
line |
|
) |
| |
|
static |
◆ FCALLSCSUB0()
◆ FCALLSCSUB1()
◆ FCALLSCSUB4()
FCALLSCSUB4 |
( |
abort_f |
, |
|
|
SYMPREFIX(ABORT) |
, |
|
|
symprefix(abort) |
, |
|
|
PVOID |
, |
|
|
STRING |
, |
|
|
STRING |
, |
|
|
INT |
|
|
) |
| |
◆ set_default_comm_f()