Adding MPI_Type_... interface (currently empty).

This commit was SVN r337.

src/mpi/interface/c/Makefile.am

@@ -27,7 +27,42 @@ libmpi_c_la_SOURCES = \
 	comm_set_name.c \
 	init.c \
 	finalize.c \
-        free_mem.c
+        free_mem.c \
+	type_commit.c \
+	type_contiguous.c \
+	type_create_darray.c \
+	type_create_f90_complex.c \
+	type_create_f90_integer.c \
+	type_create_f90_real.c \
+	type_create_hindexed.c \
+	type_create_hvector.c \
+	type_create_indexed_block.c \
+	type_create_keyval.c \
+	type_create_resized.c \
+	type_create_struct.c \
+	type_create_subarray.c \
+	type_delete_attr.c \
+	type_dup.c \
+	type_extent.c \
+	type_free.c \
+	type_free_keyval.c \
+	type_get_attr.c \
+	type_get_contents.c \
+	type_get_envelope.c \
+	type_get_extent.c \
+	type_get_name.c \
+	type_get_true_extent.c \
+	type_hindexed.c \
+	type_hvector.c \
+	type_indexed.c \
+	type_lb.c \
+	type_match_size.c \
+	type_set_attr.c \
+	type_set_name.c \
+	type_size.c \
+	type_struct.c \
+	type_ub.c \
+	type_vector.c
 
 libmpi_c_la_LIBADD	= $(profile_lib)
 

src/mpi/interface/c/type_commit.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_commit = MPI_Type_commit
+#endif
+
+int
+MPI_Type_commit(MPI_Datatype *type)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_contiguous.c

@@ -0,0 +1,20 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_contiguous = MPI_Type_contiguous
+#endif
+
+int
+MPI_Type_contiguous(int count,
+                    MPI_Datatype oldtype,
+                    MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_darray.c

@@ -0,0 +1,27 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_darray = MPI_Type_create_darray
+#endif
+
+int
+MPI_Type_create_darray(int size,
+                       int rank,
+                       int ndims,
+                       int gsize_array[],
+                       int distrib_array[],
+                       int darg_array[],
+                       int psize_array[],
+                       int order,
+                       MPI_Datatype oldtype,
+                       MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_f90_complex.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_f90_complex = MPI_Type_create_f90_complex
+#endif
+
+int
+MPI_Type_create_f90_complex(int p, int r, MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_f90_integer.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_f90_integer = MPI_Type_create_f90_integer
+#endif
+
+int
+MPI_Type_create_f90_integer(int r, MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_f90_real.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_f90_real = MPI_Type_create_f90_real
+#endif
+
+int
+MPI_Type_create_f90_real(int p, int r, MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_hindexed.c

@@ -0,0 +1,22 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_hindexed = MPI_Type_create_hindexed
+#endif
+
+int
+MPI_Type_create_hindexed(int count,
+                         int array_of_blocklengths[],
+                         MPI_Aint array_of_displacements[],
+                         MPI_Datatype oldtype,
+                         MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_hvector.c

@@ -0,0 +1,22 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_hvector = MPI_Type_create_hvector
+#endif
+
+int
+MPI_Type_create_hvector(int count,
+                        int blocklength,
+                        MPI_Aint stride,
+                        MPI_Datatype oldtype,
+                        MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_indexed_block.c

@@ -0,0 +1,22 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_indexed_block = MPI_Type_indexed_block
+#endif
+
+int
+MPI_Type_create_indexed_block(int count,
+                              int blocklength, 
+                              int array_of_displacements[],
+                              MPI_Datatype oldtype,
+                              MPI_datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_keyval.c

@@ -0,0 +1,23 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_keyval = MPI_Type_create_keyval
+#endif
+
+int
+MPI_Type_create_keyval(MPI_Type_copy_attr_function *type_copy_attr_fn,
+                       MPI_Type_delete_attr_function *type_delete_attr_fn,
+                       int *type_keyval,
+                       void *extra_state)
+{
+    return MPI_SUCCESS;
+}
+
+

src/mpi/interface/c/type_create_resized.c

@@ -0,0 +1,23 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_resized = MPI_Type_create_resized
+#endif
+
+int
+MPI_Type_create_resized(MPI_Datatype oldtype,
+                        MPI_Aint lb,
+                        MPI_Aint extent,
+                        MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}
+
+

src/mpi/interface/c/type_create_struct.c

@@ -0,0 +1,22 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_struct = MPI_Type_create_struct
+#endif
+
+int
+MPI_Type_create_struct(int count,
+                       int array_of_blocklengths[],
+                       MPI_Aint array_of_displacements[],
+                       MPI_Datatype array_of_types[],
+                       MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_create_subarray.c

@@ -0,0 +1,24 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_create_subarray = MPI_Type_create_subarray
+#endif
+
+int
+MPI_Type_create_subarray(int ndims,
+                         int size_array[],
+                         int subsize_array[],
+                         int start_array[],
+                         int order,
+                         MPI_Datatype oldtype,
+                         MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_delete_attr.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_delete_attr = MPI_Type_delete_attr
+#endif
+
+int
+MPI_Type_delete_attr (MPI_Datatype type, int type_keyval)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_dup.c

@@ -0,0 +1,19 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_dup = MPI_Type_dup
+#endif
+
+int
+MPI_Type_dup (MPI_Datatype type,
+              MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_extent.c

@@ -0,0 +1,20 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_extent = MPI_Type_extent
+#endif
+
+int
+MPI_Type_extent(MPI_Datatype type, MPI_Aint *extent)
+{
+    MPI_Aint lb;
+
+    return MPI_Type_get_extent(type, &lb, extent);
+}

src/mpi/interface/c/type_free.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_free = MPI_Type_free
+#endif
+
+int
+MPI_Type_free(MPI_Datatype *type)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_free_keyval.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_free_keyval = MPI_Type_free_keyval
+#endif
+
+int
+MPI_Type_free_keyval(int *type_keyval)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_get_attr.c

@@ -0,0 +1,21 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_get_attr = MPI_Type_get_attr
+#endif
+
+int
+MPI_Type_get_attr (MPI_Datatype type,
+                   int type_keyval,
+                   void *attribute_val,
+                   int *flag)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_get_contents.c

@@ -0,0 +1,24 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_get_contents = MPI_Type_get_contents
+#endif
+
+int
+MPI_Type_get_contents(MPI_Datatype mtype,
+                      int max_integers,
+                      int max_addresses,
+                      int max_datatypes,
+                      int array_of_integers[],
+                      MPI_Aint array_of_addresses[],
+                      MPI_Datatype array_of_datatypes[])
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_get_envelope.c

@@ -0,0 +1,22 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_get_envelope = MPI_Type_get_envelope
+#endif
+
+int
+MPI_Type_get_envelope(MPI_Datatype type,
+                      int *num_integers,
+                      int *num_addresses,
+                      int *num_datatypes,
+                      int *combiner)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_get_extent.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_get_extent = MPI_Type_get_extent
+#endif
+
+int
+MPI_Type_get_extent(MPI_Datatype type, MPI_Aint *lb, MPI_Aint *extent)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_get_name.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_get_name = MPI_Type_get_name
+#endif
+
+int
+MPI_Type_get_name(MPI_Datatype type, char *type_name, int *resultlen)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_get_true_extent.c

@@ -0,0 +1,20 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_get_true_extent = MPI_Type_get_true_extent
+#endif
+
+int
+MPI_Type_get_true_extent(MPI_Datatype datatype,
+                         MPI_Aint *true_lb, 
+                         MPI_Aint *true_extent)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_hindexed.c

@@ -0,0 +1,26 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_hindexed = MPI_Type_hindexed
+#endif
+
+int
+MPI_Type_hindexed(int count,
+                  int array_of_blocklengths[],
+                  MPI_Aint array_of_displacements[],
+                  MPI_Datatype oldtype,
+                  MPI_Datatype *newtype)
+{
+    return MPI_Type_create_hindexed(count,
+                                    array_of_blocklengths,
+                                    array_of_displacelments,
+                                    oldtype,
+                                    newtype);
+}

src/mpi/interface/c/type_hvector.c

@@ -0,0 +1,26 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_hvector = MPI_Type_hvector
+#endif
+
+int
+MPI_Type_hvector(int count,
+                 int blocklength,
+                 MPI_Aint stride,
+		 MPI_Datatype oldtype,
+                 MPI_Datatype *newtype)
+{
+    return MPI_Type_create_hvector(count,
+                                   blocklength,
+                                   stride,
+                                   oldtype,
+                                   newtype);
+}

src/mpi/interface/c/type_indexed.c

@@ -0,0 +1,22 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_indexed = MPI_Type_indexed
+#endif
+
+int
+MPI_Type_indexed(int count,
+                 int array_of_blocklengths[],
+                 int *array_of_displacements[],
+                 MPI_Datatype oldtype,
+                 MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_lb.c

@@ -0,0 +1,20 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_lb = MPI_Type_lb
+#endif
+
+int
+MPI_Type_lb(MPI_Datatype type, MPI_Aint *lb)
+{
+    MPI_Aint extent;
+
+    return MPI_Type_get_extent(type, lb, &extent);
+}

src/mpi/interface/c/type_match_size.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_match_size = MPI_Type_match_size
+#endif
+
+int
+MPI_Type_match_size(int typeclass, int size, MPI_Datatype *type)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_set_attr.c

@@ -0,0 +1,20 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_get_attr = MPI_Type_get_attr
+#endif
+
+int
+MPI_Type_set_attr (MPI_Datatype type,
+                   int type_keyval,
+                   void *attribute_val)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_set_name.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_set_name = MPI_Type_set_name
+#endif
+
+int
+MPI_Type_set_name (MPI_Datatype type, char *type_name)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_size.c

@@ -0,0 +1,18 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_size = MPI_Type_size
+#endif
+
+int
+MPI_Type_size(MPI_Datatype type, int *size)
+{
+    return MPI_SUCCESS;
+}

src/mpi/interface/c/type_struct.c

@@ -0,0 +1,26 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_struct = MPI_Type_struct
+#endif
+
+int
+MPI_Type_struct(int count,
+                int array_of_blocklengths[],
+                MPI_Aint array_of_displacements[],
+                MPI_Datatype array_of_types[],
+                MPI_Datatype *newtype)
+{
+    return MPI_Type_create_struct(count,
+                                  array_of_blocklengths,
+                                  array_of_displacements,
+                                  array_of_types,
+                                  newtype);
+}

src/mpi/interface/c/type_ub.c

@@ -0,0 +1,27 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_ub = MPI_Type_ub
+#endif
+
+int
+MPI_Type_ub(MPI_Datatype mtype, MPI_Aint *ub)
+{
+    MPI_Aint lb;
+    MPI_Aint extent;
+    int status;
+
+    status = MPI_Type_get_extent(type, &lb, &extent);
+    if (MPI_SUCCESS == status) {
+        *ub = lb + extent;
+    }
+
+    return status;
+}

src/mpi/interface/c/type_vector.c

@@ -0,0 +1,22 @@
+/*
+ * $HEADER$
+ */
+
+#include "lam_config.h"
+
+#include "mpi.h"
+#include "mpi/interface/c/bindings.h"
+
+#if LAM_WANT_MPI_PROFILING && LAM_HAVE_WEAK_SYMBOLS
+#pragma weak PMPI_Type_vector = MPI_Type_vector
+#endif
+
+int
+MPI_Type_vector(int count,
+                int blocklength,
+                int stride,
+                MPI_Datatype oldtype,
+                MPI_Datatype *newtype)
+{
+    return MPI_SUCCESS;
+}