diff --git a/mpi.h b/mpi.h index 6a2f0d4..09a330f 100644 --- a/mpi.h +++ b/mpi.h @@ -244,6 +244,7 @@ enum { MPI_ERR_VALUE_TOO_LARGE = 59, /* added: MPI-4.0 */ MPI_ERR_SESSION = 60, /* added: MPI-4.0 */ MPI_ERR_ERRHANDLER = 61, /* added: MPI-4.1 */ + MPI_ERR_ABI = 62, /* added: MPI-5.0 */ MPI_T_ERR_CANNOT_INIT = 1001, MPI_T_ERR_NOT_ACCESSIBLE = 1002, @@ -560,8 +561,12 @@ typedef void (MPI_T_event_free_cb_function)(MPI_T_event_registration event_regis typedef void (MPI_T_event_dropped_cb_function)(MPI_Count count, MPI_T_event_registration event_registration, int source_index, MPI_T_cb_safety cb_safety, void *user_data); /* MPI functions */ +int MPI_Abi_get_fortran_booleans(int logical_size, void *logical_true, void *logical_false); +int MPI_Abi_get_fortran_info(MPI_Info *info); int MPI_Abi_get_info(MPI_Info *info); int MPI_Abi_get_version(int *abi_major, int *abi_minor); +int MPI_Abi_set_fortran_booleans(int logical_size, void *logical_true, void *logical_false); +int MPI_Abi_set_fortran_info(MPI_Info info); int MPI_Abort(MPI_Comm comm, int errorcode); int MPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win); int MPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win); @@ -1226,8 +1231,12 @@ int MPI_T_source_get_num(int *num_sources); int MPI_T_source_get_timestamp(int source_index, MPI_Count *timestamp); /* PMPI functions */ +int PMPI_Abi_get_fortran_booleans(int logical_size, void *logical_true, void *logical_false); +int PMPI_Abi_get_fortran_info(MPI_Info *info); int PMPI_Abi_get_info(MPI_Info *info); int PMPI_Abi_get_version(int *abi_major, int *abi_minor); +int PMPI_Abi_set_fortran_booleans(int logical_size, void *logical_true, void *logical_false); +int PMPI_Abi_set_fortran_info(MPI_Info info); int PMPI_Abort(MPI_Comm comm, int errorcode); int PMPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win); int PMPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win); diff --git a/mpistubs.c b/mpistubs.c index ae7c1a6..f19a3fc 100644 --- a/mpistubs.c +++ b/mpistubs.c @@ -2,8 +2,12 @@ #include "mpi.h" /* MPI functions */ +int MPI_Abi_get_fortran_booleans(int logical_size, void *logical_true, void *logical_false) { abort(); return 0; } +int MPI_Abi_get_fortran_info(MPI_Info *info) { abort(); return 0; } int MPI_Abi_get_info(MPI_Info *info) { abort(); return 0; } int MPI_Abi_get_version(int *abi_major, int *abi_minor) { abort(); return 0; } +int MPI_Abi_set_fortran_booleans(int logical_size, void *logical_true, void *logical_false) { abort(); return 0; } +int MPI_Abi_set_fortran_info(MPI_Info info) { abort(); return 0; } int MPI_Abort(MPI_Comm comm, int errorcode) { abort(); return 0; } int MPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; } int MPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; } @@ -668,8 +672,12 @@ int MPI_T_source_get_num(int *num_sources) { abort(); return 0; } int MPI_T_source_get_timestamp(int source_index, MPI_Count *timestamp) { abort(); return 0; } /* PMPI functions */ +int PMPI_Abi_get_fortran_booleans(int logical_size, void *logical_true, void *logical_false) { abort(); return 0; } +int PMPI_Abi_get_fortran_info(MPI_Info *info) { abort(); return 0; } int PMPI_Abi_get_info(MPI_Info *info) { abort(); return 0; } int PMPI_Abi_get_version(int *abi_major, int *abi_minor) { abort(); return 0; } +int PMPI_Abi_set_fortran_booleans(int logical_size, void *logical_true, void *logical_false) { abort(); return 0; } +int PMPI_Abi_set_fortran_info(MPI_Info info) { abort(); return 0; } int PMPI_Abort(MPI_Comm comm, int errorcode) { abort(); return 0; } int PMPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; } int PMPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; }