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

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

Author: ggouaillardet

ompi/datatype/ompi_datatype_create_darray.c

@@ -136,7 +136,7 @@ cyclic(const int *gsize_array, int dim, int ndims, int nprocs,
 
     if (rem) {
         /* if the last block is of size less than blksize, include
-           it separately using MPI_Type_struct */
+           it separately using MPI_Type_create_struct */
 
         types  [0] = *type_new; types  [1] = type_old;
         disps  [0] = 0;         disps  [1] = count*stride;

ompi/mca/io/romio321/romio/adio/ad_pvfs2/ad_pvfs2_open.c

@@ -211,7 +211,7 @@ void ADIOI_PVFS2_Open(ADIO_File fd, int *error_code)
     MPI_Get_address(&o_status.error, &offsets[0]);
     MPI_Get_address(&o_status.object_ref, &offsets[1]);
 
-    MPI_Type_struct(2, lens, offsets, types, &open_status_type);
+    MPI_Type_create_struct(2, lens, offsets, types, &open_status_type);
     MPI_Type_commit(&open_status_type);
 
     /* Assertion: if we hit this Bcast, then all processes collectively

ompi/mca/io/romio321/romio/adio/ad_zoidfs/ad_zoidfs_open.c

@@ -118,7 +118,7 @@ void ADIOI_ZOIDFS_Open(ADIO_File fd, int *error_code)
     MPI_Get_address(&o_status.error, &offsets[0]);
     MPI_Get_address(&o_status.handle, &offsets[1]);
 
-    MPI_Type_struct(2, lens, offsets, types, &open_status_type);
+    MPI_Type_create_struct(2, lens, offsets, types, &open_status_type);
     MPI_Type_commit(&open_status_type);
 
     /* Assertion: if we hit this Bcast, then all processes collectively

ompi/mca/io/romio321/romio/adio/common/ad_darray.c

@@ -248,7 +248,7 @@ static int MPIOI_Type_cyclic(int *array_of_gsizes, int dim, int ndims, int nproc
 
     if (rem) {
 	/* if the last block is of size less than blksize, include
-	   it separately using MPI_Type_struct */
+	   it separately using MPI_Type_create_struct */
 
 	types[0] = *type_new;
 	types[1] = type_old;

ompi/mca/io/romio321/romio/test-internal/io_bounds_test.c

@@ -105,8 +105,8 @@ int run_test (test_param_t *test) {
 
     MPI_Datatype filetype;
 
-    MPI_Type_struct (test->type_count, test->type_blocklens,
-		     test->type_indices, test->type_oldtypes, &filetype);
+    MPI_Type_create_struct (test->type_count, test->type_blocklens,
+		            test->type_indices, test->type_oldtypes, &filetype);
     MPI_Type_commit (&filetype);
 
     MPI_File_open (MPI_COMM_WORLD, "test_file.txt" , MPI_MODE_RDWR,

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

@@ -71,7 +71,7 @@ int main(int argc, char **argv)
     t[1] = typevec;
     t[2] = MPI_UB;
 
-    MPI_Type_struct(3, b, d, t, &newtype);
+    MPI_Type_create_struct(3, b, d, t, &newtype);
     MPI_Type_commit(&newtype);
     MPI_Type_free(&typevec);
 

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

@@ -75,7 +75,7 @@ int main(int argc, char **argv)
     t[2] = MPI_UB;
 
     /* keep the struct, ditch the vector */
-    MPI_Type_struct(3, b, d, t, &newtype);
+    MPI_Type_create_struct(3, b, d, t, &newtype);
     MPI_Type_commit(&newtype);
     MPI_Type_free(&typevec);
 

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

@@ -69,7 +69,7 @@ int main(int argc, char **argv)
     t[1] = typevec;
     t[2] = MPI_UB;
 
-    MPI_Type_struct(3, b, d, t, &newtype);
+    MPI_Type_create_struct(3, b, d, t, &newtype);
     MPI_Type_commit(&newtype);
     MPI_Type_free(&typevec);
 

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

@@ -384,7 +384,7 @@ int test_file(char *filename, int mynod, int nprocs, char * cb_hosts, const char
     t[1] = typevec;
     t[2] = MPI_UB;
 
-    MPI_Type_struct(3, b, d, t, &newtype);
+    MPI_Type_create_struct(3, b, d, t, &newtype);
     MPI_Type_commit(&newtype);
     MPI_Type_free(&typevec);
 

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

@@ -391,7 +391,6 @@ PN2(void, MPI_Type_set_attr, mpi_type_set_attr, MPI_TYPE_SET_ATTR, (MPI_Fint *ty
 PN2(void, MPI_Type_set_name, mpi_type_set_name, MPI_TYPE_SET_NAME, (MPI_Fint *type, char *type_name, MPI_Fint *ierr, int name_len));
 PN2(void, MPI_Type_size, mpi_type_size, MPI_TYPE_SIZE, (MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr));
 PN2(void, MPI_Type_size_x, mpi_type_size_x, MPI_TYPE_SIZE_X, (MPI_Fint *type, MPI_Count *size, MPI_Fint *ierr));
-PN2(void, MPI_Type_struct, mpi_type_struct, MPI_TYPE_STRUCT, (MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr));
 PN2(void, MPI_Type_ub, mpi_type_ub, MPI_TYPE_UB, (MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr));
 PN2(void, MPI_Type_vector, mpi_type_vector, MPI_TYPE_VECTOR, (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr));
 PN2(void, MPI_Unpack, mpi_unpack, MPI_UNPACK, (char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr));