Correctly allocate the displ array.
This commit was SVN r3323.
Этот коммит содержится в:
родитель
0648d1de85
Коммит
3598e00558
@ -53,14 +53,18 @@ void mpi_type_indexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths,
|
||||
MPI_Datatype c_old = MPI_Type_f2c(*oldtype);
|
||||
MPI_Datatype c_new;
|
||||
OMPI_ARRAY_NAME_DECL(array_of_blocklengths);
|
||||
OMPI_ARRAY_NAME_DECL(array_of_displacements);
|
||||
|
||||
OMPI_ARRAY_FINT_2_INT(array_of_blocklengths, *count);
|
||||
OMPI_ARRAY_FINT_2_INT(array_of_displacements, *count);
|
||||
|
||||
*ierr = OMPI_INT_2_FINT(MPI_Type_indexed(OMPI_FINT_2_INT(*count),
|
||||
OMPI_ARRAY_NAME_CONVERT(array_of_blocklengths),
|
||||
array_of_displacements, c_old, &c_new));
|
||||
OMPI_ARRAY_NAME_CONVERT(array_of_displacements),
|
||||
c_old, &c_new));
|
||||
|
||||
OMPI_ARRAY_FINT_2_INT_CLEANUP(array_of_blocklengths);
|
||||
OMPI_ARRAY_FINT_2_INT_CLEANUP(array_of_displacements);
|
||||
|
||||
if( MPI_SUCCESS != (*ierr) ) {
|
||||
c_new = MPI_DATATYPE_NULL;
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user