+#define DT_FLAG_BASIC (DT_FLAG_PREDEFINED | DT_FLAG_CONTIGUOUS | DT_FLAG_NO_GAPS | DT_FLAG_DATA | DT_FLAG_COMMITED)
+
+extern const MPI_Datatype MPI_PTR;
+
+/* Structures that handle complex data type information, used for serialization/unserialization of messages */
+typedef struct s_smpi_mpi_contiguous{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ MPI_Aint lb;
+ size_t size_oldtype;
+ int block_count;
+} s_smpi_mpi_contiguous_t;
+
+typedef struct s_smpi_mpi_vector{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ int block_stride;
+ int block_length;
+ int block_count;
+} s_smpi_mpi_vector_t;
+
+typedef struct s_smpi_mpi_hvector{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ MPI_Aint block_stride;
+ int block_length;
+ int block_count;
+} s_smpi_mpi_hvector_t;
+
+typedef struct s_smpi_mpi_indexed{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ int* block_lengths;
+ int* block_indices;
+ int block_count;
+} s_smpi_mpi_indexed_t;
+
+typedef struct s_smpi_mpi_hindexed{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ int* block_lengths;
+ MPI_Aint* block_indices;
+ int block_count;
+} s_smpi_mpi_hindexed_t;
+
+typedef struct s_smpi_mpi_struct{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ int* block_lengths;
+ MPI_Aint* block_indices;
+ int block_count;
+ MPI_Datatype* old_types;
+} s_smpi_mpi_struct_t;
+
+/*
+ Functions to handle serialization/unserialization of messages, 3 for each type of MPI_Type
+ One for creating the substructure to handle, one for serialization, one for unserialization
+*/
+XBT_PRIVATE void unserialize_contiguous( void *contiguous_vector, void *noncontiguous_vector, int count,
+ void *type, MPI_Op op);
+XBT_PRIVATE void serialize_contiguous( void *noncontiguous_vector, void *contiguous_vector, int count,void *type);
+XBT_PRIVATE void free_contiguous(MPI_Datatype* type);
+XBT_PRIVATE void use_contiguous(MPI_Datatype* type);
+XBT_PRIVATE s_smpi_mpi_contiguous_t* smpi_datatype_contiguous_create( MPI_Aint lb, int block_count,
+ MPI_Datatype old_type, int size_oldtype);
+
+XBT_PRIVATE void unserialize_vector( void *contiguous_vector, void *noncontiguous_vector, int count,void *type,
+ MPI_Op op);
+XBT_PRIVATE void serialize_vector( void *noncontiguous_vector, void *contiguous_vector, int count, void *type);
+XBT_PRIVATE void free_vector(MPI_Datatype* type);
+XBT_PRIVATE void use_vector(MPI_Datatype* type);
+XBT_PRIVATE 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);
+
+XBT_PRIVATE void unserialize_hvector( void *contiguous_vector, void *noncontiguous_vector, int count, void *type,
+ MPI_Op op);
+XBT_PRIVATE void serialize_hvector( void *noncontiguous_vector, void *contiguous_vector, int count, void *type);
+XBT_PRIVATE void free_hvector(MPI_Datatype* type);
+XBT_PRIVATE void use_hvector(MPI_Datatype* type);
+XBT_PRIVATE s_smpi_mpi_hvector_t* smpi_datatype_hvector_create( MPI_Aint block_stride, int block_length,
+ int block_count, MPI_Datatype old_type, int size_oldtype);
+
+XBT_PRIVATE void unserialize_indexed( void *contiguous_indexed, void *noncontiguous_indexed, int count,
+ void *type, MPI_Op op);
+XBT_PRIVATE void serialize_indexed( void *noncontiguous_vector, void *contiguous_vector, int count, void *type);
+XBT_PRIVATE void free_indexed(MPI_Datatype* type);
+XBT_PRIVATE void use_indexed(MPI_Datatype* type);
+XBT_PRIVATE s_smpi_mpi_indexed_t* smpi_datatype_indexed_create(int* block_lengths, int* block_indices,
+ int block_count, MPI_Datatype old_type, int size_oldtype);
+
+XBT_PRIVATE void unserialize_hindexed( void *contiguous_indexed, void *noncontiguous_indexed, int count,
+ void *type, MPI_Op op);
+XBT_PRIVATE void serialize_hindexed( void *noncontiguous_vector, void *contiguous_vector, int count, void *type);
+XBT_PRIVATE void free_hindexed(MPI_Datatype* type);
+XBT_PRIVATE void use_hindexed(MPI_Datatype* type);
+XBT_PRIVATE s_smpi_mpi_hindexed_t* smpi_datatype_hindexed_create(int* block_lengths, MPI_Aint* block_indices,
+ int block_count, MPI_Datatype old_type, int size_oldtype);
+
+XBT_PRIVATE void unserialize_struct( void *contiguous_indexed, void *noncontiguous_indexed, int count, void *type,
+ MPI_Op op);
+XBT_PRIVATE void serialize_struct( void *noncontiguous_vector, void *contiguous_vector, int count, void *type);
+XBT_PRIVATE void free_struct(MPI_Datatype* type);
+XBT_PRIVATE void use_struct(MPI_Datatype* type);
+XBT_PRIVATE s_smpi_mpi_struct_t* smpi_datatype_struct_create(int* block_lengths, MPI_Aint* block_indices,
+ int block_count, MPI_Datatype* old_types);
+
+SG_END_DECL()
+#endif