fortran: remove all references to MPI_Type_hindexed (removed in MPI 3.0)

Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>

Author: ggouaillardet

ompi/mca/coll/libnbc/nbc_internal.h

@@ -530,7 +530,7 @@ static inline int NBC_Unpack(void *src, int srccount, MPI_Datatype srctype, void
      * types are contiguous), we can just use a single memcpy */
     res = ompi_datatype_get_extent (srctype, &lb, &ext);
     if (OMPI_SUCCESS != res) {
-      NBC_Error ("MPI Error in MPI_Type_extent() (%i)", res);
+      NBC_Error ("MPI Error in MPI_Type_get_extent() (%i)", res);
       return res;
     }
 

ompi/mca/io/romio321/romio/adio/include/adioi.h

@@ -624,7 +624,7 @@ typedef struct view_state
     ADIO_Offset disp;      /* file view params*/
     ADIO_Offset byte_off;
     ADIO_Offset sz;
-    ADIO_Offset ext;       /* preserved extent from MPI_Type_extent */
+    ADIO_Offset ext;       /* preserved extent from MPI_Type_get_extent */
     ADIO_Offset type_sz;
 
     /* Current state */

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

@@ -76,7 +76,7 @@ static int test_indexed_with_zeros(char *filename, int testcase)
 	    MPI_Type_indexed(num, blocklen, indices, MPI_INT, &filetype);
 	    break;
 	case HINDEXED:
-	    MPI_Type_hindexed(num, blocklen, addrs, MPI_INT, &filetype);
+	    MPI_Type_create_hindexed(num, blocklen, addrs, MPI_INT, &filetype);
 	    break;
 	case STRUCT:
 	    MPI_Type_create_struct(num, blocklen, addrs, types, &filetype);

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

@@ -375,7 +375,6 @@ PN2(void, MPI_Type_create_subarray, mpi_type_create_subarray, MPI_TYPE_CREATE_SU
 PN2(void, MPI_Type_create_resized, mpi_type_create_resized, MPI_TYPE_CREATE_RESIZED, (MPI_Fint *oldtype, MPI_Aint *lb, MPI_Aint *extent, MPI_Fint *newtype, MPI_Fint *ierr));
 PN2(void, MPI_Type_delete_attr, mpi_type_delete_attr, MPI_TYPE_DELETE_ATTR, (MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr));
 PN2(void, MPI_Type_dup, mpi_type_dup, MPI_TYPE_DUP, (MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr));
-PN2(void, MPI_Type_extent, mpi_type_extent, MPI_TYPE_EXTENT, (MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr));
 PN2(void, MPI_Type_free, mpi_type_free, MPI_TYPE_FREE, (MPI_Fint *type, MPI_Fint *ierr));
 PN2(void, MPI_Type_free_keyval, mpi_type_free_keyval, MPI_TYPE_FREE_KEYVAL, (MPI_Fint *type_keyval, MPI_Fint *ierr));
 PN2(void, MPI_Type_get_attr, mpi_type_get_attr, MPI_TYPE_GET_ATTR, (MPI_Fint *type, MPI_Fint *type_keyval, MPI_Aint *attribute_val, ompi_fortran_logical_t *flag, MPI_Fint *ierr));
@@ -386,7 +385,6 @@ PN2(void, MPI_Type_get_extent_x, mpi_type_get_extent_x, MPI_TYPE_GET_EXTENT_X, (
 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));
 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));
 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));
-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));
 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));
 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));
 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_extent_f.c

@@ -123,7 +123,7 @@ and the root had executed n calls to
              recvcount, recvtype, i, \&...)
 .fi
 .sp
-where extent(recvtype) is the type extent obtained from a call to MPI_Type_extent().
+where extent(recvtype) is the type extent obtained from a call to MPI_Type_get_extent().
 .sp
 An alternative description is that the n messages sent by the processes in the group are concatenated in rank order, and the resulting message is received by the root as if by a call to MPI_RECV(recvbuf, recvcount * n, recvtype, . . . ).
 .sp

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

@@ -82,10 +82,6 @@ or
 where MPI_ADDRESS_KIND is a constant defined in mpif.h
 and gives the length of the declared integer in bytes.
 
-.SH NOTE
-.ft R
-Use of MPI_Type_create_resized is strongly recommended over the old MPI-1 functions MPI_Type_extent and MPI_Type_lb.
-
 .SH ERRORS
 Almost all MPI routines return an error value; C routines as the value of the function and Fortran routines in the last argument. C++ functions do not return errors. If the default error handler is set to MPI::ERRORS_THROW_EXCEPTIONS, then on error the C++ exception mechanism will be used to throw an MPI::Exception object.
 .sp

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

@@ -86,7 +86,7 @@ MPI_COMBINER_CONTIGUOUS         MPI_Type_contiguous
 MPI_COMBINER_VECTOR             MPI_Type_vector
 MPI_COMBINER_HVECTOR            MPI_Type_hvector
 MPI_COMBINER_INDEXED            MPI_Type_indexed
-MPI_COMBINER_HINDEXED           MPI_Type_hindexed
+MPI_COMBINER_HINDEXED           MPI_Type_create_hindexed
 MPI_COMBINER_INDEXED_BLOCK      MPI_Type_create_indexed_block
 MPI_COMBINER_STRUCT             MPI_Type_struct
 MPI_COMBINER_SUBARRAY           MPI_Type_create_subarray

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

@@ -76,7 +76,7 @@ MPI_Type_get_extent returns the lower bound and the extent of \fIdatatype\fP. Fo
 
 .SH NOTE
 .ft R
-Use of MPI_Type_get_extent is strongly recommended over the old MPI-1 functions MPI_Type_extent and MPI_Type_lb.
+Use of MPI_Type_get_extent is now mandatory since the old MPI-1 functions MPI_Type_extent and MPI_Type_lb have been removed in MPI 3.0.
 
 .SH FORTRAN 77 NOTES
 .ft R