Move implementation of create_mpi_datatype from CarpetInterp2 to CarpetLib

2 files changed, 0 insertions, 34 deletions

diff --git a/Carpet/CarpetInterp2/src/fasterp.cc b/Carpet/CarpetInterp2/src/fasterp.cc
index 1de7c7863..44a2e8d6d 100644
--- a/Carpet/CarpetInterp2/src/fasterp.cc
+++ b/Carpet/CarpetInterp2/src/fasterp.cc
@@ -17,26 +17,6 @@ namespace CarpetInterp2 {
   
   
   
-  // Create an MPI datatype from a C datatype description
-  void
-  create_mpi_datatype (size_t const count,
-                       mpi_struct_descr_t const descr[],
-                       MPI_Datatype & newtype)
-  {
-    int blocklengths[count];
-    MPI_Aint displacements[count];
-    MPI_Datatype types[count];
-    for (size_t n=0; n<count; ++n) {
-      blocklengths [n] = descr[n].blocklength;
-      displacements[n] = descr[n].displacement;
-      types        [n] = descr[n].type;
-    }
-    MPI_Type_struct (count, blocklengths, displacements, types, &newtype);
-    MPI_Type_commit (&newtype);
-  }
-
-
-
   // Create an MPI datatype for location information
   MPI_Datatype
   fasterp_iloc_t::mpi_datatype ()
diff --git a/Carpet/CarpetInterp2/src/fasterp.hh b/Carpet/CarpetInterp2/src/fasterp.hh
index d2a13a35f..84b20da80 100644
--- a/Carpet/CarpetInterp2/src/fasterp.hh
+++ b/Carpet/CarpetInterp2/src/fasterp.hh
@@ -27,20 +27,6 @@ namespace CarpetInterp2 {
   
   
   
-  // Map C structures to MPI datatypes
-  struct mpi_struct_descr_t {
-    int          blocklength;
-    MPI_Aint     displacement;
-    MPI_Datatype type;
-  };
-  
-  void
-  create_mpi_datatype (size_t count,
-                       mpi_struct_descr_t const descr[],
-                       MPI_Datatype & newtype);
-  
-  
-  
   // A global location, given by its global coordinates
   struct fasterp_glocs_t {
     vector<CCTK_REAL> coords[dim];