@@ -159,21 +159,21 @@ typedef struct MPI_ABI_Datatype* MPI_Datatype;
159159#define MPI_UINT32_T ((MPI_Datatype)0x00000251)
160160#define MPI_INT64_T ((MPI_Datatype)0x00000258)
161161#define MPI_UINT64_T ((MPI_Datatype)0x00000259)
162- #define MPIX_LOGICAL1 ((MPI_Datatype)0x000002c0)
162+ #define MPI_LOGICAL1 ((MPI_Datatype)0x000002c0)
163163#define MPI_INTEGER1 ((MPI_Datatype)0x000002c1)
164164#define MPI_CHARACTER ((MPI_Datatype)0x000002c3)
165- #define MPIX_LOGICAL2 ((MPI_Datatype)0x000002c8)
165+ #define MPI_LOGICAL2 ((MPI_Datatype)0x000002c8)
166166#define MPI_INTEGER2 ((MPI_Datatype)0x000002c9)
167167#define MPI_REAL2 ((MPI_Datatype)0x000002ca)
168- #define MPIX_LOGICAL4 ((MPI_Datatype)0x000002d0)
168+ #define MPI_LOGICAL4 ((MPI_Datatype)0x000002d0)
169169#define MPI_INTEGER4 ((MPI_Datatype)0x000002d1)
170170#define MPI_REAL4 ((MPI_Datatype)0x000002d2)
171171#define MPI_COMPLEX4 ((MPI_Datatype)0x000002d3)
172- #define MPIX_LOGICAL8 ((MPI_Datatype)0x000002d8)
172+ #define MPI_LOGICAL8 ((MPI_Datatype)0x000002d8)
173173#define MPI_INTEGER8 ((MPI_Datatype)0x000002d9)
174174#define MPI_REAL8 ((MPI_Datatype)0x000002da)
175175#define MPI_COMPLEX8 ((MPI_Datatype)0x000002db)
176- #define MPIX_LOGICAL16 ((MPI_Datatype)0x000002e0)
176+ #define MPI_LOGICAL16 ((MPI_Datatype)0x000002e0)
177177#define MPI_INTEGER16 ((MPI_Datatype)0x000002e1)
178178#define MPI_REAL16 ((MPI_Datatype)0x000002e2)
179179#define MPI_COMPLEX16 ((MPI_Datatype)0x000002e3)
@@ -590,6 +590,8 @@ extern MPI_F08_status* MPI_F08_STATUS_IGNORE;
590590extern MPI_F08_status * MPI_F08_STATUSES_IGNORE ;
591591
592592/* MPI functions */
593+ int MPI_Abi_get_info (MPI_Info * info );
594+ int MPI_Abi_get_version (int * abi_major , int * abi_minor );
593595int MPI_Abort (MPI_Comm comm , int errorcode );
594596int 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 );
595597int 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 );
@@ -1180,6 +1182,29 @@ MPI_Aint MPI_Aint_diff(MPI_Aint addr1, MPI_Aint addr2);
11801182double MPI_Wtick (void );
11811183double MPI_Wtime (void );
11821184
1185+ MPI_Comm MPI_Comm_fromint (int comm );
1186+ int MPI_Comm_toint (MPI_Comm comm );
1187+ MPI_Errhandler MPI_Errhandler_fromint (int errhandler );
1188+ int MPI_Errhandler_toint (MPI_Errhandler errhandler );
1189+ MPI_File MPI_File_fromint (int file );
1190+ int MPI_File_toint (MPI_File file );
1191+ MPI_Group MPI_Group_fromint (int group );
1192+ int MPI_Group_toint (MPI_Group group );
1193+ MPI_Info MPI_Info_fromint (int info );
1194+ int MPI_Info_toint (MPI_Info info );
1195+ MPI_Message MPI_Message_fromint (int message );
1196+ int MPI_Message_toint (MPI_Message message );
1197+ MPI_Op MPI_Op_fromint (int op );
1198+ int MPI_Op_toint (MPI_Op op );
1199+ MPI_Request MPI_Request_fromint (int request );
1200+ int MPI_Request_toint (MPI_Request request );
1201+ MPI_Session MPI_Session_fromint (int session );
1202+ int MPI_Session_toint (MPI_Session session );
1203+ MPI_Datatype MPI_Type_fromint (int datatype );
1204+ int MPI_Type_toint (MPI_Datatype datatype );
1205+ MPI_Win MPI_Win_fromint (int win );
1206+ int MPI_Win_toint (MPI_Win win );
1207+
11831208int MPI_Status_c2f (const MPI_Status * c_status , MPI_Fint * f_status );
11841209int MPI_Status_f2c (const MPI_Fint * f_status , MPI_Status * c_status );
11851210int MPI_Status_c2f08 (const MPI_Status * c_status , MPI_F08_status * f08_status );
@@ -1190,8 +1215,6 @@ MPI_Fint MPI_Comm_c2f(MPI_Comm comm);
11901215MPI_Comm MPI_Comm_f2c (MPI_Fint comm );
11911216MPI_Fint MPI_Errhandler_c2f (MPI_Errhandler errhandler );
11921217MPI_Errhandler MPI_Errhandler_f2c (MPI_Fint errhandler );
1193- MPI_Fint MPI_Type_c2f (MPI_Datatype datatype );
1194- MPI_Datatype MPI_Type_f2c (MPI_Fint datatype );
11951218MPI_Fint MPI_File_c2f (MPI_File file );
11961219MPI_File MPI_File_f2c (MPI_Fint file );
11971220MPI_Fint MPI_Group_c2f (MPI_Group group );
@@ -1206,6 +1229,8 @@ MPI_Fint MPI_Request_c2f(MPI_Request request);
12061229MPI_Request MPI_Request_f2c (MPI_Fint request );
12071230MPI_Fint MPI_Session_c2f (MPI_Session session );
12081231MPI_Session MPI_Session_f2c (MPI_Fint session );
1232+ MPI_Fint MPI_Type_c2f (MPI_Datatype datatype );
1233+ MPI_Datatype MPI_Type_f2c (MPI_Fint datatype );
12091234MPI_Fint MPI_Win_c2f (MPI_Win win );
12101235MPI_Win MPI_Win_f2c (MPI_Fint win );
12111236
@@ -1263,6 +1288,8 @@ int MPI_T_source_get_num(int *num_sources);
12631288int MPI_T_source_get_timestamp (int source_index , MPI_Count * timestamp );
12641289
12651290/* PMPI functions */
1291+ int PMPI_Abi_get_info (MPI_Info * info );
1292+ int PMPI_Abi_get_version (int * abi_major , int * abi_minor );
12661293int PMPI_Abort (MPI_Comm comm , int errorcode );
12671294int 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 );
12681295int 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 );
@@ -1852,6 +1879,29 @@ MPI_Aint PMPI_Aint_diff(MPI_Aint addr1, MPI_Aint addr2);
18521879double PMPI_Wtick (void );
18531880double PMPI_Wtime (void );
18541881
1882+ MPI_Comm PMPI_Comm_fromint (int comm );
1883+ int PMPI_Comm_toint (MPI_Comm comm );
1884+ MPI_Errhandler PMPI_Errhandler_fromint (int errhandler );
1885+ int PMPI_Errhandler_toint (MPI_Errhandler errhandler );
1886+ MPI_File PMPI_File_fromint (int file );
1887+ int PMPI_File_toint (MPI_File file );
1888+ MPI_Group PMPI_Group_fromint (int group );
1889+ int PMPI_Group_toint (MPI_Group group );
1890+ MPI_Info PMPI_Info_fromint (int info );
1891+ int PMPI_Info_toint (MPI_Info info );
1892+ MPI_Message PMPI_Message_fromint (int message );
1893+ int PMPI_Message_toint (MPI_Message message );
1894+ MPI_Op PMPI_Op_fromint (int op );
1895+ int PMPI_Op_toint (MPI_Op op );
1896+ MPI_Request PMPI_Request_fromint (int request );
1897+ int PMPI_Request_toint (MPI_Request request );
1898+ MPI_Session PMPI_Session_fromint (int session );
1899+ int PMPI_Session_toint (MPI_Session session );
1900+ MPI_Datatype PMPI_Type_fromint (int datatype );
1901+ int PMPI_Type_toint (MPI_Datatype datatype );
1902+ MPI_Win PMPI_Win_fromint (int win );
1903+ int PMPI_Win_toint (MPI_Win win );
1904+
18551905int PMPI_Status_c2f (const MPI_Status * c_status , MPI_Fint * f_status );
18561906int PMPI_Status_f2c (const MPI_Fint * f_status , MPI_Status * c_status );
18571907int PMPI_Status_c2f08 (const MPI_Status * c_status , MPI_F08_status * f08_status );
@@ -1862,8 +1912,6 @@ MPI_Fint PMPI_Comm_c2f(MPI_Comm comm);
18621912MPI_Comm PMPI_Comm_f2c (MPI_Fint comm );
18631913MPI_Fint PMPI_Errhandler_c2f (MPI_Errhandler errhandler );
18641914MPI_Errhandler PMPI_Errhandler_f2c (MPI_Fint errhandler );
1865- MPI_Fint PMPI_Type_c2f (MPI_Datatype datatype );
1866- MPI_Datatype PMPI_Type_f2c (MPI_Fint datatype );
18671915MPI_Fint PMPI_File_c2f (MPI_File file );
18681916MPI_File PMPI_File_f2c (MPI_Fint file );
18691917MPI_Fint PMPI_Group_c2f (MPI_Group group );
@@ -1878,6 +1926,8 @@ MPI_Fint PMPI_Request_c2f(MPI_Request request);
18781926MPI_Request PMPI_Request_f2c (MPI_Fint request );
18791927MPI_Fint PMPI_Session_c2f (MPI_Session session );
18801928MPI_Session PMPI_Session_f2c (MPI_Fint session );
1929+ MPI_Fint PMPI_Type_c2f (MPI_Datatype datatype );
1930+ MPI_Datatype PMPI_Type_f2c (MPI_Fint datatype );
18811931MPI_Fint PMPI_Win_c2f (MPI_Win win );
18821932MPI_Win PMPI_Win_f2c (MPI_Fint win );
18831933
0 commit comments