typedef struct s_smpi_mpi_vector{
s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
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_hvector{
s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
MPI_Aint block_stride;
size_t block_length;
size_t block_count;
- MPI_Datatype old_type;
- size_t size_oldtype;
} 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;
size_t block_count;
- MPI_Datatype old_type;
- size_t size_oldtype;
} 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;
size_t block_count;
- MPI_Datatype old_type;
- size_t size_oldtype;
} 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;
size_t block_count;
size_t count,
void *type);
+void free_vector(MPI_Datatype* type);
+
s_smpi_mpi_vector_t* smpi_datatype_vector_create( int block_stride,
int block_length,
int block_count,
size_t count,
void *type);
+void free_hvector(MPI_Datatype* type);
+
s_smpi_mpi_hvector_t* smpi_datatype_hvector_create( MPI_Aint block_stride,
int block_length,
int block_count,
size_t count,
void *type);
+void free_indexed(MPI_Datatype* type);
+
s_smpi_mpi_indexed_t* smpi_datatype_indexed_create(int* block_lengths,
int* block_indices,
int block_count,
size_t count,
void *type);
+void free_hindexed(MPI_Datatype* type);
+
s_smpi_mpi_hindexed_t* smpi_datatype_hindexed_create(int* block_lengths,
MPI_Aint* block_indices,
int block_count,
size_t count,
void *type);
+void free_struct(MPI_Datatype* type);
+
s_smpi_mpi_struct_t* smpi_datatype_struct_create(int* block_lengths,
MPI_Aint* block_indices,
int block_count,