Skip to content

Commit 7f80c17

Browse files
committed
fortran: remove all references to MPI_Type_hindexed (removed in MPI 3.0)
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
1 parent 1936c6c commit 7f80c17

File tree

5 files changed

+3
-112
lines changed

5 files changed

+3
-112
lines changed

ompi/mca/io/romio321/romio/test/types_with_zeros.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -76,7 +76,7 @@ static int test_indexed_with_zeros(char *filename, int testcase)
7676
MPI_Type_indexed(num, blocklen, indices, MPI_INT, &filetype);
7777
break;
7878
case HINDEXED:
79-
MPI_Type_hindexed(num, blocklen, addrs, MPI_INT, &filetype);
79+
MPI_Type_create_hindexed(num, blocklen, addrs, MPI_INT, &filetype);
8080
break;
8181
case STRUCT:
8282
MPI_Type_create_struct(num, blocklen, addrs, types, &filetype);

ompi/mpi/fortran/mpif-h/prototypes_mpi.h

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -385,7 +385,6 @@ PN2(void, MPI_Type_get_extent_x, mpi_type_get_extent_x, MPI_TYPE_GET_EXTENT_X, (
385385
PN2(void, MPI_Type_get_name, mpi_type_get_name, MPI_TYPE_GET_NAME, (MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr, int name_len));
386386
PN2(void, MPI_Type_get_true_extent, mpi_type_get_true_extent, MPI_TYPE_GET_TRUE_EXTENT, (MPI_Fint *datatype, MPI_Aint *true_lb, MPI_Aint *true_extent, MPI_Fint *ierr));
387387
PN2(void, MPI_Type_get_true_extent_x, mpi_type_get_true_extent_x, MPI_TYPE_GET_TRUE_EXTENT_X, (MPI_Fint *datatype, MPI_Count *true_lb, MPI_Count *true_extent, MPI_Fint *ierr));
388-
PN2(void, MPI_Type_hindexed, mpi_type_hindexed, MPI_TYPE_HINDEXED, (MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr));
389388
PN2(void, MPI_Type_hvector, mpi_type_hvector, MPI_TYPE_HVECTOR, (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr));
390389
PN2(void, MPI_Type_indexed, mpi_type_indexed, MPI_TYPE_INDEXED, (MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr));
391390
PN2(void, MPI_Type_lb, mpi_type_lb, MPI_TYPE_LB, (MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr));

ompi/mpi/fortran/mpif-h/type_hindexed_f.c

Lines changed: 0 additions & 108 deletions
This file was deleted.

ompi/mpi/man/man3/MPI_Type_get_envelope.3in

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -86,7 +86,7 @@ MPI_COMBINER_CONTIGUOUS MPI_Type_contiguous
8686
MPI_COMBINER_VECTOR MPI_Type_vector
8787
MPI_COMBINER_HVECTOR MPI_Type_hvector
8888
MPI_COMBINER_INDEXED MPI_Type_indexed
89-
MPI_COMBINER_HINDEXED MPI_Type_hindexed
89+
MPI_COMBINER_HINDEXED MPI_Type_create_hindexed
9090
MPI_COMBINER_INDEXED_BLOCK MPI_Type_create_indexed_block
9191
MPI_COMBINER_STRUCT MPI_Type_struct
9292
MPI_COMBINER_SUBARRAY MPI_Type_create_subarray

ompi/mpi/man/man3/MPI_Type_indexed.3in

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -165,6 +165,6 @@ called. By default, this error handler aborts the MPI job, except for I/O functi
165165
.SH SEE ALSO
166166
.ft R
167167
.sp
168-
MPI_Type_hindexed
168+
MPI_Type_create_hindexed
169169
.br
170170

0 commit comments

Comments
 (0)