1
1

Correctly allocate the displ array.

This commit was SVN r3323.
Этот коммит содержится в:
George Bosilca 2004-10-26 06:08:35 +00:00
родитель 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;