#include "xbt/xbt_os_time.h"
#include "simgrid/simix.h"
#include "smpi/smpi.h"
+#ifdef SMPI_F2C
#include "smpi/smpif.h"
+#endif
#include "smpi/smpi_cocci.h"
#include "instr/instr_private.h"
#define RECV 0x8
-//*****************************************************************************************
-
// this struct is here to handle the problem of non-contignous data
// for each such structure these function should be implemented (vector
// index hvector hindex struct)
typedef struct s_smpi_subtype{
void (*serialize)(const void * input, void *output, size_t count, void* subtype);
void (*unserialize)(const void * input, void *output, size_t count, void* subtype);
+ void (*subtype_free)(MPI_Datatype* type);
} s_smpi_subtype_t;
-/*one exemple of implementation for the vector is already here*/
-typedef struct s_smpi_mpi_vector{
- s_smpi_subtype_t base;
- size_t block_stride;
- size_t block_length;
- size_t block_count;
- MPI_Datatype old_type;
- size_t size_oldtype;
-} s_smpi_mpi_vector_t;
-
typedef struct s_smpi_mpi_datatype{
size_t size;
/* this let us know if a serialization is required*/
void *substruct;
} s_smpi_mpi_datatype_t;
-
//*****************************************************************************************
typedef struct s_smpi_mpi_request {
MPI_Comm comm;
smx_action_t action;
unsigned flags;
+ int detached;
#ifdef HAVE_TRACING
int send;
int recv;
int smpi_datatype_struct(int count, int* blocklens, MPI_Aint* indices,
MPI_Datatype* old_types, MPI_Datatype* new_type);
-void smpi_datatype_create(MPI_Datatype* new_type, int size, int has_subtype, void *struct_type, int flags);
+void smpi_datatype_create(MPI_Datatype* new_type, int size,int realsize, int has_subtype, void *struct_type, int flags);
void smpi_datatype_free(MPI_Datatype* type);
void smpi_datatype_commit(MPI_Datatype* datatype);
-void unserialize_vector( const void *contiguous_vector,
- void *noncontiguous_vector,
- size_t count,
- void *type);
-
-void serialize_vector( const void *noncontiguous_vector,
- void *contiguous_vector,
- size_t count,
- void *type);
-
-s_smpi_mpi_vector_t* smpi_datatype_vector_create( int block_stride,
- int block_length,
- int block_count,
- MPI_Datatype old_type,
- int size_oldtype);
-
-
void smpi_empty_status(MPI_Status * status);
MPI_Op smpi_op_new(MPI_User_function * function, int commute);
void smpi_op_destroy(MPI_Op op);