Renamed some aliased hyperslab functions to comply with the maximum length

for names of Fortran routines (31 characters):

 Hyperslab_DefineGlobalMappingByPhys  -> Hyperslab_GlobalMappingByPhys
 Hyperslab_DefineGlobalMappingByIndex -> Hyperslab_GlobalMappingByIndex
 Hyperslab_DefineLocalMappingByPhys   -> Hyperslab_LocalMappingByPhys
 Hyperslab_DefineLocalMappingByIndex  -> Hyperslab_LocalMappingByIndex

Also renamed the providing functions accordingly.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGHSlab/trunk@119 10716dce-81a3-4424-a2c8-48026a0d3035

2 files changed, 31 insertions, 31 deletions

diff --git a/src/Mapping.c b/src/Mapping.c
index 4cd0c94..386f897 100644
--- a/src/Mapping.c
+++ b/src/Mapping.c
@@ -70,18 +70,18 @@ static int IsFullHyperslab (const pGA *GA,
                             const hslab_mapping_t *mapping);
 
 
-CCTK_INT PUGHSlab_DefineLocalMappingByIndex (CCTK_POINTER_TO_CONST _GH,
-                                             CCTK_INT vindex,
-                                             CCTK_INT hdim,
-                                             const CCTK_INT *direction,
-                                             const CCTK_INT *origin,
-                                             const CCTK_INT *extent,
-                                             const CCTK_INT *downsample,
-                                             CCTK_INT table_handle,
-                                             t_hslabConversionFn function,
-                                             CCTK_INT *hsize_local,
-                                             CCTK_INT *hsize_global,
-                                             CCTK_INT *hoffset_global)
+CCTK_INT PUGHSlab_LocalMappingByIndex (CCTK_POINTER_TO_CONST _GH,
+                                       CCTK_INT vindex,
+                                       CCTK_INT hdim,
+                                       const CCTK_INT *direction,
+                                       const CCTK_INT *origin,
+                                       const CCTK_INT *extent,
+                                       const CCTK_INT *downsample,
+                                       CCTK_INT table_handle,
+                                       t_hslabConversionFn function,
+                                       CCTK_INT *hsize_local,
+                                       CCTK_INT *hsize_global,
+                                       CCTK_INT *hoffset_global)
 {
   CCTK_INT retval;
   const cGH *GH = _GH;
@@ -94,16 +94,16 @@ CCTK_INT PUGHSlab_DefineLocalMappingByIndex (CCTK_POINTER_TO_CONST _GH,
 }
 
 
-CCTK_INT PUGHSlab_DefineGlobalMappingByIndex (CCTK_POINTER_TO_CONST _GH,
-                                              CCTK_INT vindex,
-                                              CCTK_INT hdim,
-                                              const CCTK_INT *direction,
-                                              const CCTK_INT *origin,
-                                              const CCTK_INT *extent,
-                                              const CCTK_INT *downsample,
-                                              CCTK_INT table_handle,
-                                              t_hslabConversionFn function,
-                                              CCTK_INT *hsize)
+CCTK_INT PUGHSlab_GlobalMappingByIndex (CCTK_POINTER_TO_CONST _GH,
+                                        CCTK_INT vindex,
+                                        CCTK_INT hdim,
+                                        const CCTK_INT *direction,
+                                        const CCTK_INT *origin,
+                                        const CCTK_INT *extent,
+                                        const CCTK_INT *downsample,
+                                        CCTK_INT table_handle,
+                                        t_hslabConversionFn function,
+                                        CCTK_INT *hsize)
 {
   CCTK_INT retval;
   const cGH *GH = _GH;
@@ -277,7 +277,7 @@ static CCTK_INT DefineMapping (const cGH      *GH,
   if (retval)
   {
     CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                "PUGHlab_DefineGlobalMappingByIndex: %s", error_msg);
+                "PUGHlab_GlobalMappingByIndex: %s", error_msg);
     return (retval);
   }
 
@@ -313,7 +313,7 @@ static CCTK_INT DefineMapping (const cGH      *GH,
     {
       free (mapping->do_dir); free (mapping->global_hsize); free (mapping);
       CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                  "PUGHlab_DefineGlobalMappingByIndex: %d-direction vector "
+                  "PUGHlab_GlobalMappingByIndex: %d-direction vector "
                   "is a null vector", dim);
       return (-7);
     }
@@ -323,7 +323,7 @@ static CCTK_INT DefineMapping (const cGH      *GH,
     {
       free (mapping->do_dir); free (mapping->global_hsize); free (mapping);
       CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                  "PUGHlab_DefineGlobalMappingByIndex: %d-direction vector "
+                  "PUGHlab_GlobalMappingByIndex: %d-direction vector "
                   "isn't axis-orthogonal", dim);
       return (-7);
     }
@@ -334,7 +334,7 @@ static CCTK_INT DefineMapping (const cGH      *GH,
   {
     free (mapping->do_dir); free (mapping->global_hsize); free (mapping);
     CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                "PUGHlab_DefineGlobalMappingByIndex: diagonals can be "
+                "PUGHlab_GlobalMappingByIndex: diagonals can be "
                 "extracted from non-staggered 3D variables only");
     return (-7);
   }
@@ -352,7 +352,7 @@ static CCTK_INT DefineMapping (const cGH      *GH,
     if (mapping->do_dir[vdim] > 1)
     {
       free (mapping->do_dir); free (mapping->global_hsize); free (mapping);
-      CCTK_WARN (1, "PUGHlab_DefineGlobalMappingByIndex: duplicate direction "
+      CCTK_WARN (1, "PUGHlab_GlobalMappingByIndex: duplicate direction "
                     "vectors given");
       return (-8);
     }
@@ -371,7 +371,7 @@ static CCTK_INT DefineMapping (const cGH      *GH,
       {
         free (mapping->do_dir); free (mapping->global_hsize); free (mapping);
         CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                    "PUGHlab_DefineGlobalMappingByIndex: extent in "
+                    "PUGHlab_GlobalMappingByIndex: extent in "
                     "%d-direction exceeds grid size", dim);
         return (-8);
       }
@@ -382,7 +382,7 @@ static CCTK_INT DefineMapping (const cGH      *GH,
     {
       free (mapping->do_dir); free (mapping->global_hsize); free (mapping);
       CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                  "PUGHlab_DefineGlobalMappingByIndex: extent in "
+                  "PUGHlab_GlobalMappingByIndex: extent in "
                   "%d-direction exceeds grid size", vdim);
       return (-8);
     }
diff --git a/src/PUGHSlab.h b/src/PUGHSlab.h
index 5a562e0..72833d3 100644
--- a/src/PUGHSlab.h
+++ b/src/PUGHSlab.h
@@ -43,7 +43,7 @@ CCTK_INT PUGHSlab_GetList (CCTK_POINTER_TO_CONST _GH,
                            const CCTK_INT *hdatatypes,  /* num_arrays */
                            const CCTK_POINTER *hdata,   /* num_arrays */
                            CCTK_INT *retvals            /* num_arrays */);
-CCTK_INT PUGHSlab_DefineLocalMappingByIndex (
+CCTK_INT PUGHSlab_LocalMappingByIndex (
            CCTK_POINTER_TO_CONST _GH,
            CCTK_INT vindex,
            CCTK_INT hdim,
@@ -57,7 +57,7 @@ CCTK_INT PUGHSlab_DefineLocalMappingByIndex (
            CCTK_INT *hsize_global,    /* hdim */
            CCTK_INT *hoffset_global   /* hdim */);
 
-CCTK_INT PUGHSlab_DefineGlobalMappingByIndex (
+CCTK_INT PUGHSlab_GlobalMappingByIndex (
            CCTK_POINTER_TO_CONST _GH,
            CCTK_INT vindex,
            CCTK_INT hdim,