-/* Copyright (c) 2007, 2008, 2009, 2010. The SimGrid Team.
+/* Copyright (c) 2007-2014. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
- * under the terms of the license (GNU LGPL) which comes with this package. */
+ * under the terms of the license (GNU LGPL) which comes with this package. */
#include "private.h"
+#include "simgrid/sg_config.h"
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_mpi, smpi,
"Logging specific to SMPI (mpi)");
int MPI_Init(int *argc, char ***argv)
{
+
return PMPI_Init(argc, argv);
}
return PMPI_Finalize();
}
+int MPI_Finalized(int * flag)
+{
+ return PMPI_Finalized(flag);
+}
+
int MPI_Init_thread(int *argc, char ***argv, int required, int *provided)
{
return PMPI_Init_thread(argc, argv, required, provided);
return PMPI_Wtime();
}
+double MPI_Wtick(void)
+{
+ return PMPI_Wtick();
+}
+
int MPI_Address(void *location, MPI_Aint * address)
{
return PMPI_Address(location, address);
}
+int MPI_Get_address(void *location, MPI_Aint * address)
+{
+ return PMPI_Get_address(location, address);
+}
+
int MPI_Type_free(MPI_Datatype * datatype)
{
return PMPI_Type_free(datatype);
}
+int MPI_Type_dup(MPI_Datatype datatype, MPI_Datatype * newdatatype)
+{
+ return PMPI_Type_dup(datatype, newdatatype);
+}
+
+int MPI_Type_set_name(MPI_Datatype datatype, char * name)
+{
+ return PMPI_Type_set_name(datatype, name);
+}
+
+int MPI_Type_get_name(MPI_Datatype datatype, char * name, int* len)
+{
+ return PMPI_Type_get_name(datatype,name,len);
+}
+
+int MPI_Type_get_attr (MPI_Datatype type, int type_keyval, void *attribute_val, int* flag)
+{
+ return PMPI_Type_get_attr ( type, type_keyval, attribute_val, flag);
+}
+
+int MPI_Type_set_attr (MPI_Datatype type, int type_keyval, void *attribute_val)
+{
+ return PMPI_Type_set_attr ( type, type_keyval, attribute_val);
+}
+
+int MPI_Type_delete_attr (MPI_Datatype type, int type_keyval)
+{
+ return PMPI_Type_delete_attr (type, type_keyval);
+}
+
+int MPI_Type_create_keyval(MPI_Type_copy_attr_function* copy_fn, MPI_Type_delete_attr_function* delete_fn, int* keyval, void* extra_state)
+{
+ return PMPI_Type_create_keyval(copy_fn, delete_fn, keyval, extra_state) ;
+}
+
+int MPI_Type_free_keyval(int* keyval) {
+ return PMPI_Type_free_keyval( keyval);
+}
+
+int MPI_Pcontrol(const int level )
+{
+ return PMPI_Pcontrol(level);
+}
+
int MPI_Type_size(MPI_Datatype datatype, int *size)
{
return PMPI_Type_size(datatype, size);
return PMPI_Type_get_extent(datatype, lb, extent);
}
+int MPI_Type_get_true_extent(MPI_Datatype datatype, MPI_Aint * lb, MPI_Aint * extent)
+{
+ return PMPI_Type_get_true_extent(datatype, lb, extent);
+}
+
int MPI_Type_extent(MPI_Datatype datatype, MPI_Aint * extent)
{
return PMPI_Type_extent(datatype, extent);
return PMPI_Comm_size(comm, size);
}
+int MPI_Comm_get_attr (MPI_Comm comm, int comm_keyval, void *attribute_val, int *flag)
+{
+ return PMPI_Comm_get_attr (comm, comm_keyval, attribute_val, flag);
+}
+
+int MPI_Comm_set_attr (MPI_Comm comm, int comm_keyval, void *attribute_val)
+{
+ return PMPI_Comm_set_attr ( comm, comm_keyval, attribute_val);
+}
+
+int MPI_Comm_delete_attr (MPI_Comm comm, int comm_keyval)
+{
+ return PMPI_Comm_delete_attr (comm, comm_keyval);
+}
+
+int MPI_Comm_create_keyval(MPI_Comm_copy_attr_function* copy_fn, MPI_Comm_delete_attr_function* delete_fn, int* keyval, void* extra_state)
+{
+ return PMPI_Comm_create_keyval(copy_fn, delete_fn, keyval, extra_state) ;
+}
+
+int MPI_Comm_free_keyval(int* keyval) {
+ return PMPI_Comm_free_keyval( keyval);
+}
+
int MPI_Comm_get_name (MPI_Comm comm, char* name, int* len)
{
return PMPI_Comm_get_name(comm, name, len);
return PMPI_Comm_free(comm);
}
+int MPI_Comm_disconnect(MPI_Comm * comm)
+{
+ return PMPI_Comm_disconnect(comm);
+}
+
int MPI_Comm_split(MPI_Comm comm, int color, int key, MPI_Comm* comm_out)
{
return PMPI_Comm_split(comm, color, key, comm_out);
return PMPI_Reduce(sendbuf, recvbuf, count, datatype, op, root, comm);
}
+int MPI_Reduce_local(void *inbuf, void *inoutbuf, int count,
+ MPI_Datatype datatype, MPI_Op op){
+ return PMPI_Reduce_local(inbuf, inoutbuf, count, datatype, op);
+}
+
int MPI_Allreduce(void *sendbuf, void *recvbuf, int count,
MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
{
return PMPI_Reduce_scatter(sendbuf, recvbuf, recvcounts, datatype, op, comm);
}
+int MPI_Reduce_scatter_block(void *sendbuf, void *recvbuf, int recvcount,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+{
+ return PMPI_Reduce_scatter_block(sendbuf, recvbuf, recvcount, datatype, op, comm);
+}
+
int MPI_Alltoall(void *sendbuf, int sendcount, MPI_Datatype sendtype,
void *recvbuf, int recvcount, MPI_Datatype recvtype,
MPI_Comm comm)
comm);
}
+int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr){
+ return PMPI_Alloc_mem(size, info, baseptr);
+}
+
+int MPI_Free_mem(void *baseptr){
+ return PMPI_Free_mem(baseptr);
+}
int MPI_Get_processor_name(char *name, int *resultlen)
{
return PMPI_Errhandler_set(comm, errhandler);
}
+int MPI_Comm_set_errhandler(MPI_Comm comm, MPI_Errhandler errhandler) {
+ return PMPI_Comm_set_errhandler(comm, errhandler);
+}
+
+int MPI_Comm_get_errhandler(MPI_Comm comm, MPI_Errhandler* errhandler) {
+ return PMPI_Errhandler_set(comm, errhandler);
+}
+
+int MPI_Win_get_group(MPI_Win win, MPI_Group * group){
+ return PMPI_Win_get_group(win, group);
+}
+
+int MPI_Win_set_errhandler(MPI_Win win, MPI_Errhandler errhandler) {
+ return PMPI_Win_set_errhandler(win, errhandler);
+}
+
int MPI_Type_contiguous(int count, MPI_Datatype old_type, MPI_Datatype* newtype) {
return PMPI_Type_contiguous(count, old_type, newtype);
}
return PMPI_Unpack(inbuf, insize, position, outbuf, outcount, type, comm);
}
+int MPI_Pack_external_size(char *datarep, int incount, MPI_Datatype datatype, MPI_Aint *size){
+ return PMPI_Pack_external_size(datarep, incount, datatype, size);
+}
+
+int MPI_Pack_external(char *datarep, void *inbuf, int incount, MPI_Datatype datatype, void *outbuf, MPI_Aint outcount, MPI_Aint *position){
+ return PMPI_Pack_external(datarep, inbuf, incount, datatype, outbuf, outcount, position);
+}
+
+int MPI_Unpack_external( char *datarep, void *inbuf, MPI_Aint insize, MPI_Aint *position, void *outbuf, int outcount, MPI_Datatype datatype){
+ return PMPI_Unpack_external( datarep, inbuf, insize, position, outbuf, outcount, datatype);
+}
+
int MPI_Type_commit(MPI_Datatype* datatype) {
return PMPI_Type_commit(datatype);
}
return PMPI_Type_hindexed(count, blocklens, indices, old_type, newtype);
}
+int MPI_Type_create_hindexed(int count, int* blocklens, MPI_Aint* indices, MPI_Datatype old_type, MPI_Datatype* new_type) {
+ return PMPI_Type_create_hindexed(count, blocklens,indices,old_type,new_type);
+}
+
+int MPI_Type_create_hindexed_block(int count, int blocklength, MPI_Aint* indices, MPI_Datatype old_type, MPI_Datatype* newtype) {
+ return PMPI_Type_create_hindexed_block(count, blocklength, indices, old_type, newtype);
+}
+
int MPI_Type_hvector(int count, int blocklen, MPI_Aint stride, MPI_Datatype old_type, MPI_Datatype* newtype) {
return PMPI_Type_hvector(count, blocklen, stride, old_type, newtype);
}
return PMPI_Type_indexed(count, blocklens, indices, old_type, newtype);
}
+int MPI_Type_create_indexed(int count, int* blocklens, int* indices, MPI_Datatype old_type, MPI_Datatype* newtype) {
+ return PMPI_Type_create_indexed(count, blocklens, indices, old_type, newtype);
+}
+
+int MPI_Type_create_indexed_block(int count, int blocklength, int* indices, MPI_Datatype old_type, MPI_Datatype *newtype){
+ return PMPI_Type_create_indexed_block(count, blocklength, indices, old_type, newtype);
+}
+
int MPI_Type_struct(int count, int* blocklens, MPI_Aint* indices, MPI_Datatype* old_types, MPI_Datatype* newtype) {
return PMPI_Type_struct(count, blocklens, indices, old_types, newtype);
}
+int MPI_Type_create_struct(int count, int* blocklens, MPI_Aint* indices, MPI_Datatype* old_types, MPI_Datatype* newtype) {
+ return PMPI_Type_create_struct(count, blocklens, indices, old_types, newtype);
+}
+
int MPI_Type_vector(int count, int blocklen, int stride, MPI_Datatype old_type, MPI_Datatype* newtype) {
return PMPI_Type_vector(count, blocklen, stride, old_type, newtype);
}
int MPI_Initialized(int* flag) {
return PMPI_Initialized(flag);
}
+
+int MPI_Win_fence( int assert, MPI_Win win){
+ return PMPI_Win_fence( assert, win);
+}
+
+int MPI_Win_free( MPI_Win* win){
+ return PMPI_Win_free( win);
+}
+
+int MPI_Win_create( void *base, MPI_Aint size, int disp_unit, MPI_Info info, MPI_Comm comm, MPI_Win *win){
+ return PMPI_Win_create( base, size, disp_unit, info, comm,win);
+}
+
+int MPI_Win_set_name(MPI_Win win, char * name)
+{
+ return PMPI_Win_set_name(win, name);
+}
+
+int MPI_Win_get_name(MPI_Win win, char * name, int* len)
+{
+ return PMPI_Win_get_name(win,name,len);
+}
+
+int MPI_Win_complete(MPI_Win win){
+ return PMPI_Win_complete(win);
+}
+
+int MPI_Win_lock(int lock_type, int rank, int assert, MPI_Win win) {
+ return PMPI_Win_lock(lock_type, rank, assert, win);
+}
+
+int MPI_Win_post(MPI_Group group, int assert, MPI_Win win){
+ return PMPI_Win_post(group, assert, win);
+}
+
+int MPI_Win_start(MPI_Group group, int assert, MPI_Win win){
+ return PMPI_Win_start(group, assert, win);
+}
+
+int MPI_Win_test(MPI_Win win, int *flag){
+ return PMPI_Win_test(win, flag);
+}
+
+int MPI_Win_unlock(int rank, MPI_Win win){
+ return PMPI_Win_unlock(rank, win);
+}
+
+int MPI_Win_wait(MPI_Win win){
+ return PMPI_Win_wait(win);
+}
+
+int MPI_Info_create( MPI_Info *info){
+ return PMPI_Info_create( info);
+}
+
+int MPI_Info_set( MPI_Info info, char *key, char *value){
+ return PMPI_Info_set( info, key, value);
+}
+
+int MPI_Info_free( MPI_Info *info){
+ return PMPI_Info_free( info);
+}
+
+int MPI_Get( 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_Win win){
+ return PMPI_Get( origin_addr,origin_count, origin_datatype,target_rank,
+ target_disp, target_count,target_datatype, win);
+}
+
+int MPI_Put( 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_Win win){
+ return PMPI_Put( origin_addr,origin_count, origin_datatype,target_rank,
+ target_disp, target_count,target_datatype, win);
+}
+
+int MPI_Accumulate( 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){
+ return PMPI_Accumulate( origin_addr,origin_count, origin_datatype,target_rank,
+ target_disp, target_count,target_datatype,op, win);
+}
+
+int MPI_Type_get_envelope( MPI_Datatype datatype, int *num_integers,
+ int *num_addresses, int *num_datatypes, int *combiner){
+ return PMPI_Type_get_envelope( datatype, num_integers,
+ num_addresses, num_datatypes, combiner);
+}
+
+int MPI_Type_get_contents(MPI_Datatype datatype, int max_integers, int max_addresses,
+ int max_datatypes, int* array_of_integers, MPI_Aint* array_of_addresses,
+ MPI_Datatype *array_of_datatypes){
+ return PMPI_Type_get_contents(datatype, max_integers, max_addresses,
+ max_datatypes, array_of_integers, array_of_addresses,
+ array_of_datatypes);
+}
+
+int MPI_Type_create_darray(int size, int rank, int ndims, int* array_of_gsizes,
+ int* array_of_distribs, int* array_of_dargs, int* array_of_psizes,
+ int order, MPI_Datatype oldtype, MPI_Datatype *newtype) {
+ return PMPI_Type_create_darray(size, rank, ndims, array_of_gsizes,
+ array_of_distribs, array_of_dargs, array_of_psizes,
+ order, oldtype, newtype) ;
+}
+
+int MPI_Type_create_resized(MPI_Datatype oldtype,MPI_Aint lb, MPI_Aint extent, MPI_Datatype *newtype){
+ return PMPI_Type_create_resized(oldtype,lb, extent, newtype);
+}
+
+int MPI_Type_create_subarray(int ndims,int *array_of_sizes, int *array_of_subsizes, int *array_of_starts, int order, MPI_Datatype oldtype, MPI_Datatype *newtype){
+ return PMPI_Type_create_subarray(ndims,array_of_sizes, array_of_subsizes, array_of_starts, order, oldtype, newtype);
+}
+
+int MPI_Type_match_size(int typeclass,int size,MPI_Datatype *datatype){
+ return PMPI_Type_match_size(typeclass,size,datatype);
+}
+
+int MPI_Alltoallw( void *sendbuf, int *sendcnts, int *sdispls, MPI_Datatype *sendtypes,
+ void *recvbuf, int *recvcnts, int *rdispls, MPI_Datatype *recvtypes,
+ MPI_Comm comm){
+ return PMPI_Alltoallw( sendbuf, sendcnts, sdispls, sendtypes,
+ recvbuf, recvcnts, rdispls, recvtypes,
+ comm);
+}
+
+int MPI_Exscan(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,
+ MPI_Op op, MPI_Comm comm){
+ return PMPI_Exscan(sendbuf, recvbuf, count, datatype, op, comm);
+}
+
+int MPI_Comm_set_name (MPI_Comm comm, char* name){
+ return PMPI_Comm_set_name (comm, name);
+}
+
+int MPI_Comm_dup_with_info(MPI_Comm comm, MPI_Info info, MPI_Comm * newcomm){
+ return PMPI_Comm_dup_with_info(comm,info,newcomm);
+}
+
+int MPI_Comm_split_type(MPI_Comm comm, int split_type, int key, MPI_Info info, MPI_Comm *newcomm){
+ return PMPI_Comm_split_type(comm, split_type, key, info, newcomm);
+}
+
+int MPI_Comm_set_info (MPI_Comm comm, MPI_Info info){
+ return PMPI_Comm_set_info (comm, info);
+}
+
+int MPI_Comm_get_info (MPI_Comm comm, MPI_Info* info){
+ return PMPI_Comm_get_info (comm, info);
+}
+
+int MPI_Info_get(MPI_Info info,char *key,int valuelen, char *value, int *flag){
+ return PMPI_Info_get(info,key,valuelen, value, flag);
+}
+
+int MPI_Comm_create_errhandler( MPI_Comm_errhandler_fn *function, MPI_Errhandler *errhandler){
+ return PMPI_Comm_create_errhandler( function, errhandler);
+}
+
+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);
+}
