+int MPI_Add_error_class( int *errorclass){
+ return PMPI_Add_error_class( errorclass);
+}
+
+int MPI_Add_error_code( int errorclass, int *errorcode){
+ return PMPI_Add_error_code(errorclass, errorcode);
+}
+
+int MPI_Add_error_string( int errorcode, char *string){
+ return PMPI_Add_error_string(errorcode, string);
+}
+
+int MPI_Comm_call_errhandler(MPI_Comm comm,int errorcode){
+ return PMPI_Comm_call_errhandler(comm, errorcode);
+}
+
+int MPI_Info_dup(MPI_Info info, MPI_Info *newinfo){
+ return PMPI_Info_dup(info, newinfo);
+}
+
+int MPI_Info_get_valuelen( MPI_Info info, char *key, int *valuelen, int *flag){
+ return PMPI_Info_get_valuelen( info, key, valuelen, flag);
+}
+
+int MPI_Info_delete(MPI_Info info, char *key){
+ return PMPI_Info_delete(info, key);
+}
+
+int MPI_Info_get_nkeys( MPI_Info info, int *nkeys){
+ return PMPI_Info_get_nkeys( info, nkeys);
+}
+
+int MPI_Info_get_nthkey( MPI_Info info, int n, char *key){
+ return PMPI_Info_get_nthkey( info, n, key);
+}
+
+int MPI_Get_version (int *version,int *subversion){
+ return PMPI_Get_version (version,subversion);
+}
+
+int MPI_Get_library_version (char *version,int *len){
+ return PMPI_Get_library_version (version,len);
+}
+
+int MPI_Request_get_status( MPI_Request request, int *flag, MPI_Status *status){
+ return PMPI_Request_get_status( request, flag, status);
+}
+
+int MPI_Grequest_start( MPI_Grequest_query_function *query_fn, MPI_Grequest_free_function *free_fn, MPI_Grequest_cancel_function *cancel_fn, void *extra_state, MPI_Request *request){
+ return PMPI_Grequest_start( query_fn, free_fn, cancel_fn, extra_state, request);
+}
+
+int MPI_Grequest_complete( MPI_Request request){
+ return PMPI_Grequest_complete( request);
+}
+
+int MPI_Status_set_cancelled(MPI_Status *status,int flag){
+ return PMPI_Status_set_cancelled(status,flag);
+}
+
+int MPI_Status_set_elements( MPI_Status *status, MPI_Datatype datatype, int count){
+ return PMPI_Status_set_elements( status, datatype, count);
+}
+
+int MPI_Comm_connect( char *port_name, MPI_Info info, int root, MPI_Comm comm, MPI_Comm *newcomm){
+ return PMPI_Comm_connect( port_name, info, root, comm, newcomm);
+}
+
+int MPI_Publish_name( char *service_name, MPI_Info info, char *port_name){
+ return PMPI_Publish_name( service_name, info, port_name);
+}
+
+int MPI_Unpublish_name( char *service_name, MPI_Info info, char *port_name){
+ return PMPI_Unpublish_name( service_name, info, port_name);
+}
+
+int MPI_Lookup_name( char *service_name, MPI_Info info, char *port_name){
+ return PMPI_Lookup_name( service_name, info, port_name);
+}
+
+int MPI_Comm_join( int fd, MPI_Comm *intercomm){
+ return PMPI_Comm_join( fd, intercomm);
+}
+
+int MPI_Open_port( MPI_Info info, char *port_name){
+ return PMPI_Open_port( info,port_name);
+}
+
+int MPI_Close_port( char *port_name){
+ return PMPI_Close_port( port_name);
+}
+
+int MPI_Comm_accept( char *port_name, MPI_Info info, int root, MPI_Comm comm, MPI_Comm *newcomm){
+ return PMPI_Comm_accept( port_name, info, root, comm, newcomm);
+}
+
+int MPI_Comm_spawn( char *command, char **argv, int maxprocs, MPI_Info info, int root,
+ MPI_Comm comm, MPI_Comm *intercomm, int* array_of_errcodes){
+ return PMPI_Comm_spawn( command, argv, maxprocs, info, root, comm, intercomm, array_of_errcodes);
+}
+
+int MPI_Comm_spawn_multiple( int count, char **array_of_commands, char*** array_of_argv,
+ int* array_of_maxprocs, MPI_Info* array_of_info, int root,
+ MPI_Comm comm, MPI_Comm *intercomm, int* array_of_errcodes){
+ return PMPI_Comm_spawn_multiple( count, array_of_commands, array_of_argv, array_of_maxprocs,
+ array_of_info, root, comm, intercomm, array_of_errcodes);
+}
+
+int MPI_Comm_get_parent( MPI_Comm *parent){
+ return PMPI_Comm_get_parent( parent);
+}
+
+int MPI_Type_create_hvector(int count, int blocklen, MPI_Aint stride, MPI_Datatype old_type, MPI_Datatype* new_type) {
+ return PMPI_Type_create_hvector(count, blocklen, stride, old_type, new_type);
+}
+
+MPI_Datatype MPI_Type_f2c(MPI_Fint datatype){
+ return PMPI_Type_f2c(datatype);
+}
+
+MPI_Fint MPI_Type_c2f(MPI_Datatype datatype){
+ return PMPI_Type_c2f( datatype);
+}
+
+MPI_Group MPI_Group_f2c(MPI_Fint group){
+ return PMPI_Group_f2c( group);
+}
+
+MPI_Fint MPI_Group_c2f(MPI_Group group){
+ return PMPI_Group_c2f(group);
+}
+
+MPI_Request MPI_Request_f2c(MPI_Fint request){
+ return PMPI_Request_f2c(request);
+}
+
+MPI_Fint MPI_Request_c2f(MPI_Request request) {
+ return PMPI_Request_c2f(request);
+}
+
+MPI_Win MPI_Win_f2c(MPI_Fint win){
+ return PMPI_Win_f2c(win);
+}
+
+MPI_Fint MPI_Win_c2f(MPI_Win win){
+ return PMPI_Win_c2f(win);
+}
+
+MPI_Op MPI_Op_f2c(MPI_Fint op){
+ return PMPI_Op_f2c(op);
+}
+
+MPI_Fint MPI_Op_c2f(MPI_Op op){
+ return PMPI_Op_c2f(op);
+}
+
+MPI_Comm MPI_Comm_f2c(MPI_Fint comm){
+ return PMPI_Comm_f2c(comm);
+}
+
+MPI_Fint MPI_Comm_c2f(MPI_Comm comm){
+ return PMPI_Comm_c2f(comm);
+}
+
+MPI_Info MPI_Info_f2c(MPI_Fint info){
+ return PMPI_Info_f2c(info);
+}
+
+MPI_Fint MPI_Info_c2f(MPI_Info info){
+ return PMPI_Info_c2f(info);
+}
+
+MPI_Errhandler MPI_Errhandler_f2c(MPI_Fint errhandler){
+ return PMPI_Errhandler_f2c(errhandler);
+}
+
+MPI_Fint MPI_Errhandler_c2f(MPI_Errhandler errhandler){
+ return PMPI_Errhandler_c2f(errhandler);
+}