Skip to content

Commit c9c9865

Browse files
jeffhammonddalcinl
jeffhammond
authored and
dalcinl
committed
Remove everything related to MPI_Fint
Signed-off-by: Jeff Hammond <[email protected]>
1 parent ef54a5c commit c9c9865

File tree

2 files changed

+0
-132
lines changed

2 files changed

+0
-132
lines changed

‎mpi.h‎

Lines changed: 0 additions & 74 deletions
Original file line numberDiff line numberDiff line change
@@ -37,14 +37,6 @@ typedef MPI_ABI_Offset MPI_Offset;
3737
typedef MPI_ABI_Count MPI_Count;
3838
#undef MPI_ABI_Count
3939

40-
/* MPI_Fint must match the Fortran default INTEGER kind. */
41-
/* It is often equivalent to C int but most compilers support wider options. */
42-
#if !defined(MPI_ABI_Fint)
43-
#define MPI_ABI_Fint int
44-
#endif
45-
typedef MPI_ABI_Fint MPI_Fint;
46-
#undef MPI_ABI_Fint
47-
4840
typedef struct {
4941
int MPI_SOURCE;
5042
int MPI_TAG;
@@ -187,14 +179,6 @@ enum {
187179
MPI_F_ERROR = 2
188180
};
189181

190-
/* Fortran 2008 Status Type */
191-
typedef struct {
192-
MPI_Fint MPI_SOURCE;
193-
MPI_Fint MPI_TAG;
194-
MPI_Fint MPI_ERROR;
195-
MPI_Fint MPI_internal[5];
196-
} MPI_F08_status;
197-
198182
/* Error Classes */
199183
enum {
200184
MPI_SUCCESS = 0,
@@ -1186,35 +1170,6 @@ int MPI_Type_toint(MPI_Datatype datatype);
11861170
MPI_Win MPI_Win_fromint(int win);
11871171
int MPI_Win_toint(MPI_Win win);
11881172

1189-
int MPI_Status_c2f(const MPI_Status *c_status, MPI_Fint *f_status);
1190-
int MPI_Status_f2c(const MPI_Fint *f_status, MPI_Status *c_status);
1191-
int MPI_Status_c2f08(const MPI_Status *c_status, MPI_F08_status *f08_status);
1192-
int MPI_Status_f082c(const MPI_F08_status *f08_status, MPI_Status *c_status);
1193-
int MPI_Status_f2f08(const MPI_Fint *f_status, MPI_F08_status *f08_status);
1194-
int MPI_Status_f082f(const MPI_F08_status *f08_status, MPI_Fint *f_status);
1195-
MPI_Fint MPI_Comm_c2f(MPI_Comm comm);
1196-
MPI_Comm MPI_Comm_f2c(MPI_Fint comm);
1197-
MPI_Fint MPI_Errhandler_c2f(MPI_Errhandler errhandler);
1198-
MPI_Errhandler MPI_Errhandler_f2c(MPI_Fint errhandler);
1199-
MPI_Fint MPI_File_c2f(MPI_File file);
1200-
MPI_File MPI_File_f2c(MPI_Fint file);
1201-
MPI_Fint MPI_Group_c2f(MPI_Group group);
1202-
MPI_Group MPI_Group_f2c(MPI_Fint group);
1203-
MPI_Fint MPI_Info_c2f(MPI_Info info);
1204-
MPI_Info MPI_Info_f2c(MPI_Fint info);
1205-
MPI_Fint MPI_Message_c2f(MPI_Message message);
1206-
MPI_Message MPI_Message_f2c(MPI_Fint message);
1207-
MPI_Fint MPI_Op_c2f(MPI_Op op);
1208-
MPI_Op MPI_Op_f2c(MPI_Fint op);
1209-
MPI_Fint MPI_Request_c2f(MPI_Request request);
1210-
MPI_Request MPI_Request_f2c(MPI_Fint request);
1211-
MPI_Fint MPI_Session_c2f(MPI_Session session);
1212-
MPI_Session MPI_Session_f2c(MPI_Fint session);
1213-
MPI_Fint MPI_Type_c2f(MPI_Datatype datatype);
1214-
MPI_Datatype MPI_Type_f2c(MPI_Fint datatype);
1215-
MPI_Fint MPI_Win_c2f(MPI_Win win);
1216-
MPI_Win MPI_Win_f2c(MPI_Fint win);
1217-
12181173
/* MPI_T functions */
12191174
int MPI_T_category_changed(int *update_number);
12201175
int MPI_T_category_get_categories(int cat_index, int len, int indices[]);
@@ -1879,35 +1834,6 @@ int PMPI_Type_toint(MPI_Datatype datatype);
18791834
MPI_Win PMPI_Win_fromint(int win);
18801835
int PMPI_Win_toint(MPI_Win win);
18811836

1882-
int PMPI_Status_c2f(const MPI_Status *c_status, MPI_Fint *f_status);
1883-
int PMPI_Status_f2c(const MPI_Fint *f_status, MPI_Status *c_status);
1884-
int PMPI_Status_c2f08(const MPI_Status *c_status, MPI_F08_status *f08_status);
1885-
int PMPI_Status_f082c(const MPI_F08_status *f08_status, MPI_Status *c_status);
1886-
int PMPI_Status_f2f08(const MPI_Fint *f_status, MPI_F08_status *f08_status);
1887-
int PMPI_Status_f082f(const MPI_F08_status *f08_status, MPI_Fint *f_status);
1888-
MPI_Fint PMPI_Comm_c2f(MPI_Comm comm);
1889-
MPI_Comm PMPI_Comm_f2c(MPI_Fint comm);
1890-
MPI_Fint PMPI_Errhandler_c2f(MPI_Errhandler errhandler);
1891-
MPI_Errhandler PMPI_Errhandler_f2c(MPI_Fint errhandler);
1892-
MPI_Fint PMPI_File_c2f(MPI_File file);
1893-
MPI_File PMPI_File_f2c(MPI_Fint file);
1894-
MPI_Fint PMPI_Group_c2f(MPI_Group group);
1895-
MPI_Group PMPI_Group_f2c(MPI_Fint group);
1896-
MPI_Fint PMPI_Info_c2f(MPI_Info info);
1897-
MPI_Info PMPI_Info_f2c(MPI_Fint info);
1898-
MPI_Fint PMPI_Message_c2f(MPI_Message message);
1899-
MPI_Message PMPI_Message_f2c(MPI_Fint message);
1900-
MPI_Fint PMPI_Op_c2f(MPI_Op op);
1901-
MPI_Op PMPI_Op_f2c(MPI_Fint op);
1902-
MPI_Fint PMPI_Request_c2f(MPI_Request request);
1903-
MPI_Request PMPI_Request_f2c(MPI_Fint request);
1904-
MPI_Fint PMPI_Session_c2f(MPI_Session session);
1905-
MPI_Session PMPI_Session_f2c(MPI_Fint session);
1906-
MPI_Fint PMPI_Type_c2f(MPI_Datatype datatype);
1907-
MPI_Datatype PMPI_Type_f2c(MPI_Fint datatype);
1908-
MPI_Fint PMPI_Win_c2f(MPI_Win win);
1909-
MPI_Win PMPI_Win_f2c(MPI_Fint win);
1910-
19111837
/* PMPI_T functions */
19121838
int PMPI_T_category_changed(int *update_number);
19131839
int PMPI_T_category_get_categories(int cat_index, int len, int indices[]);

‎mpistubs.c‎

Lines changed: 0 additions & 58 deletions
Original file line numberDiff line numberDiff line change
@@ -612,35 +612,6 @@ int MPI_Type_toint(MPI_Datatype datatype) { abort(); return 0; }
612612
MPI_Win MPI_Win_fromint(int win) { abort(); return NULL; }
613613
int MPI_Win_toint(MPI_Win win) { abort(); return 0; }
614614

615-
int MPI_Status_c2f(const MPI_Status *c_status, MPI_Fint *f_status) { abort(); return 0; }
616-
int MPI_Status_f2c(const MPI_Fint *f_status, MPI_Status *c_status) { abort(); return 0; }
617-
int MPI_Status_c2f08(const MPI_Status *c_status, MPI_F08_status *f08_status) { abort(); return 0; }
618-
int MPI_Status_f082c(const MPI_F08_status *f08_status, MPI_Status *c_status) { abort(); return 0; }
619-
int MPI_Status_f2f08(const MPI_Fint *f_status, MPI_F08_status *f08_status) { abort(); return 0; }
620-
int MPI_Status_f082f(const MPI_F08_status *f08_status, MPI_Fint *f_status) { abort(); return 0; }
621-
MPI_Fint MPI_Comm_c2f(MPI_Comm comm) { abort(); return 0; }
622-
MPI_Comm MPI_Comm_f2c(MPI_Fint comm) { abort(); return NULL; }
623-
MPI_Fint MPI_Errhandler_c2f(MPI_Errhandler errhandler) { abort(); return 0; }
624-
MPI_Errhandler MPI_Errhandler_f2c(MPI_Fint errhandler) { abort(); return NULL; }
625-
MPI_Fint MPI_File_c2f(MPI_File file) { abort(); return 0; }
626-
MPI_File MPI_File_f2c(MPI_Fint file) { abort(); return NULL; }
627-
MPI_Fint MPI_Group_c2f(MPI_Group group) { abort(); return 0; }
628-
MPI_Group MPI_Group_f2c(MPI_Fint group) { abort(); return NULL; }
629-
MPI_Fint MPI_Info_c2f(MPI_Info info) { abort(); return 0; }
630-
MPI_Info MPI_Info_f2c(MPI_Fint info) { abort(); return NULL; }
631-
MPI_Fint MPI_Message_c2f(MPI_Message message) { abort(); return 0; }
632-
MPI_Message MPI_Message_f2c(MPI_Fint message) { abort(); return NULL; }
633-
MPI_Fint MPI_Op_c2f(MPI_Op op) { abort(); return 0; }
634-
MPI_Op MPI_Op_f2c(MPI_Fint op) { abort(); return NULL; }
635-
MPI_Fint MPI_Request_c2f(MPI_Request request) { abort(); return 0; }
636-
MPI_Request MPI_Request_f2c(MPI_Fint request) { abort(); return NULL; }
637-
MPI_Fint MPI_Session_c2f(MPI_Session session) { abort(); return 0; }
638-
MPI_Session MPI_Session_f2c(MPI_Fint session) { abort(); return NULL; }
639-
MPI_Fint MPI_Type_c2f(MPI_Datatype datatype) { abort(); return 0; }
640-
MPI_Datatype MPI_Type_f2c(MPI_Fint datatype) { abort(); return NULL; }
641-
MPI_Fint MPI_Win_c2f(MPI_Win win) { abort(); return 0; }
642-
MPI_Win MPI_Win_f2c(MPI_Fint win) { abort(); return NULL; }
643-
644615
/* MPI_T functions */
645616
int MPI_T_category_changed(int *update_number) { abort(); return 0; }
646617
int MPI_T_category_get_categories(int cat_index, int len, int indices[]) { abort(); return 0; }
@@ -1305,35 +1276,6 @@ int PMPI_Type_toint(MPI_Datatype datatype) { abort(); return 0; }
13051276
MPI_Win PMPI_Win_fromint(int win) { abort(); return NULL; }
13061277
int PMPI_Win_toint(MPI_Win win) { abort(); return 0; }
13071278

1308-
int PMPI_Status_c2f(const MPI_Status *c_status, MPI_Fint *f_status) { abort(); return 0; }
1309-
int PMPI_Status_f2c(const MPI_Fint *f_status, MPI_Status *c_status) { abort(); return 0; }
1310-
int PMPI_Status_c2f08(const MPI_Status *c_status, MPI_F08_status *f08_status) { abort(); return 0; }
1311-
int PMPI_Status_f082c(const MPI_F08_status *f08_status, MPI_Status *c_status) { abort(); return 0; }
1312-
int PMPI_Status_f2f08(const MPI_Fint *f_status, MPI_F08_status *f08_status) { abort(); return 0; }
1313-
int PMPI_Status_f082f(const MPI_F08_status *f08_status, MPI_Fint *f_status) { abort(); return 0; }
1314-
MPI_Fint PMPI_Comm_c2f(MPI_Comm comm) { abort(); return 0; }
1315-
MPI_Comm PMPI_Comm_f2c(MPI_Fint comm) { abort(); return NULL; }
1316-
MPI_Fint PMPI_Errhandler_c2f(MPI_Errhandler errhandler) { abort(); return 0; }
1317-
MPI_Errhandler PMPI_Errhandler_f2c(MPI_Fint errhandler) { abort(); return NULL; }
1318-
MPI_Fint PMPI_File_c2f(MPI_File file) { abort(); return 0; }
1319-
MPI_File PMPI_File_f2c(MPI_Fint file) { abort(); return NULL; }
1320-
MPI_Fint PMPI_Group_c2f(MPI_Group group) { abort(); return 0; }
1321-
MPI_Group PMPI_Group_f2c(MPI_Fint group) { abort(); return NULL; }
1322-
MPI_Fint PMPI_Info_c2f(MPI_Info info) { abort(); return 0; }
1323-
MPI_Info PMPI_Info_f2c(MPI_Fint info) { abort(); return NULL; }
1324-
MPI_Fint PMPI_Message_c2f(MPI_Message message) { abort(); return 0; }
1325-
MPI_Message PMPI_Message_f2c(MPI_Fint message) { abort(); return NULL; }
1326-
MPI_Fint PMPI_Op_c2f(MPI_Op op) { abort(); return 0; }
1327-
MPI_Op PMPI_Op_f2c(MPI_Fint op) { abort(); return NULL; }
1328-
MPI_Fint PMPI_Request_c2f(MPI_Request request) { abort(); return 0; }
1329-
MPI_Request PMPI_Request_f2c(MPI_Fint request) { abort(); return NULL; }
1330-
MPI_Fint PMPI_Session_c2f(MPI_Session session) { abort(); return 0; }
1331-
MPI_Session PMPI_Session_f2c(MPI_Fint session) { abort(); return NULL; }
1332-
MPI_Fint PMPI_Type_c2f(MPI_Datatype datatype) { abort(); return 0; }
1333-
MPI_Datatype PMPI_Type_f2c(MPI_Fint datatype) { abort(); return NULL; }
1334-
MPI_Fint PMPI_Win_c2f(MPI_Win win) { abort(); return 0; }
1335-
MPI_Win PMPI_Win_f2c(MPI_Fint win) { abort(); return NULL; }
1336-
13371279
/* PMPI_T functions */
13381280
int PMPI_T_category_changed(int *update_number) { abort(); return 0; }
13391281
int PMPI_T_category_get_categories(int cat_index, int len, int indices[]) { abort(); return 0; }

0 commit comments

Comments
 (0)